• ベストアンサー

2行おきの合計、VBAでど表現するのですか?

エクセルです K10~K1000で2行おきの合計 つまり K10,K13,K16,K19,・・・K1200 の合計をだす場合VBAで どう表現するのですか

質問者が選んだベストアンサー

  • ベストアンサー
  • hana-hana3
  • ベストアンサー率31% (4940/15541)
回答No.1

こんな感じです。 Sub test1() Dim i As Integer Dim sum As Single For i = 10 To 1000 Step 3 sum = sum + Cells(i, "K") Next MsgBox sum End Sub

maaaa
質問者

お礼

バッチリできました ありがとうございました

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • エクセルでの合計で奇数行と偶数行を別々に合計したいのですが?

    エクセルでの合計で奇数行と偶数行を別々に合計したいのですが?

  • 選択した行の値だけを合計

    選択した行の値だけを、その行のどのセルをダブルクリックしても合計する方法を教えてください。 A列は、ID,B・C列は値があらかじめ入力されています。 D列に、合計を表示させたいです。 関数・VBAでは、一括して合計はでましたが、VBAで必要な行だけの合計の出し方がわかりません。 VBAの勉強のために活かしたいく、よろしくお願いします。

  • Excelで数行間隔で離れているデータの合計をしたい

    10列目から5行づつ離れたデータを合計したいと思っています。 例えばA10に1,A15に2,A20に3....とデータが続いているとします。 この5行離れているというのはかわりません。Excelの組み込み関数で このような計算をすることができるでしょうか? VBAを利用して5行間隔、X行間隔でデータを合計するというプログラムは作ることができたのですが、組み込み関数を利用してX行間隔のものを合計するといったことができるのかなと思い質問させていただきました。

  • EXCELで5行おき(1,6,11・・・)に計算し合計を出したいのです

    EXCELで5行おき(1,6,11・・・)に計算し合計を出したいのですが、5行おきのデータが全て空白の場合は合計を空白にしたいのです。どのようにしたらよいでしょうか?

  • エクセル VBA自動合計算出について

    エクセル VBAで悩んでいます。  内容としては、エクセルデータをアクセスに取り込みたいのですが、表の合計をSUMにて合計した値を取り込んだ場合、文字列になってしまいアクセスで数値の認識されません。よってエクセル VBAを使用し、自動計算させたいと考えています。 具体的にすると画像の赤部分の名称1から名称9までを指定し、縦の数値を合計し、その後 1列空白行を作り、名称10から名称16までを自動計算させるというプログラムにしたいのです。 上記のようなプログラム組めるでしょうか? アドバイスをいただけないでしょうか?

  • 1行ごとに合計する

    エクセルの表内で1行ごとに合計を出したいです。 行内に空白(VLOOK入り関数)と#N/Aと表示されている行があるためか =SUM(IF(MOD(ROW(A1:A20),2)=1,A1:A20,0)) といった関数を使っても上手く合計ができません。 何かよい方法(関数)はないでしょうか?

  • エクセル vba セル合計

    添付表について下記の様な処理をしたいのですが途中からVBAの書き方が(セル合計)がわからず困っております。  *日別の原価計(K列のセル値)の小計(K列の最終入力行の下※k112)に計算する。 自分ではこの様を処理を考えております。 (1)商品名(G列)最終入力行の1行下を選ぶ(G112) (2) (1)の同行にある(k112)を合計算出セルとして選ぶ (3)商品名(G列)最終入力行(g112)からその列上の空欄行の1セル下(g66)を見て(要はg 112からEnd(xlUp))、その行と同じ範囲のK列(k112ーk66)を合計をする範囲として選ぶ (4) (2)の合計する範囲を(3)で算出する。 VBA素人の私では(1)~(3)までを下記の通り書きました。 Sub 原価合計求める() Dim lastrowshu As Long Dim lastrowgen As Long Dim fastrowgen As Long lastrowshu = Cells(Rows.Count, 7).End(xlUp).Row + 1 '帳票シートの商品名(G列)最終入力行+1を取得する。 lastrowgen = Cells(Rows.Count, 7).End(xlUp).Row '商品名行の最終入力 fastrowgen = Cells(lastrowgen, 7).End(xlUp).Row '商品名最終入力行から一番上 Cells(lastrowshu, 11).Select ここまでを実行すると添付ファイルでいうk112セルをselectするまではうまくいきましたが、 これ以降の(4)の合計の書き方がわかりません。 どなたか御教授願います。 あるいはもっといい方法があれば同時にご指導頂けますと幸いです。

  • 合計の出し方。

    お世話になります。 あるキーをFINDで、見つけ出し、K列の3行目より下に数字のデータを引っ張ってくるようにしてまして、このK列の3行目より下にある数字の合計値をB列の2行目に算出したいのです。数字のデータはキーにより可変します。VBAでどう記述していいのか分かりません。教えてください。

  • 合計が0の行を削除

    計算式が入力されており、合計が0(A,B列に数値が入力 されていない)の行を削除するVBAを教えてください。   A  B  C    1  10  5 15 2       0 3  20  6 26 C列に計算式が入力されています。 50行目まで入力されています。 オートフィルタを使用し、抽出された行を削除する方法が あると思いますが、VBAで作成する方法を探しています。 よろしくお願いします。

  • Excel VBAでn行毎に行の選択

    Excel VBAでn行毎に行の選択 こんにちわ。 初めて質問をさせて頂きます。 今回ExcelのVBAを使ってあるシートを作成することになったのですが その過程で分からず、詰まっております。 色々調べてみたもののVBAの知識が浅いせいか 該当する様なものは見つかりませんでした。 実行したいのはタイトルの通りです。 例として10行毎に1行ずつ選択したい場合は下記の通りです。 A列 10行目←選択 ・ ・ 20行目←選択 ・ ・ 30行目←選択 ・ ・ 40行目←選択 実際にやりたいことは行を選択後に入力規則を入れたいだけなのですが 5000行近くあるので、一つ一つコードを書く場合 Range("A10,A20,A30,A40・・・").EntireRow.Select 結構な量になります・・・。 VBAなら他にもっと効率いいことができるのでは、と 自分なりに探してはいますが、どうしても見つからないので 皆様のお知恵をお借りしたいです。 よろしくお願いします。

専門家に質問してみよう