マクロ Rangeのコードを使って、SUM複数の計算をさせたい

初心者・素人の私ですか、よろしくお願いします。

Range("AL19") = "=SUM(AL4:AL18)"

これが起点で７つごとに同じように繰り返して計算をさせたいとしたら、どのようなコードにしたらよいでしようか。教えて貰えませんか。同じように、２０カ所分コート入力すればよいのでしょうが、もう少し簡便なやり方でできませんか、お教え下さい。

範囲　　　合計表示　　範囲　　　合計表示　　　範囲　　　合計表示　　　範囲　　合計表示
AL4:AL18　AL１９ ・AS4:AS18　 AS１９ ・AZ4:AZ18　AZ１９・・・・FO4:FO1８ FO１９

質問者からの補足コメント

• 

  下記のように、ご紹介頂いたマクロのコードありがとうございました。できるのかも不安でしたができるのですね。実は、後６つのところに入力したいのですが、同じようにして入力したらよいのでしょうか。その他にやり方がありますか。以下の通りのマクロのコードを入れて完成したいのですが、如何なものでしょうか。最初で言っておくべきと思いましたが、大変申し訳ありません。
  
  列　　　　番号　　行Cells
  ＡＬ　　　３８　　１９
  ＡＭ　　　３９　　２０
  ＡＮ　　　４０　　２１
  ＡＯ　　　４１　　２２
  ＡＰ　　　４２　　２３
  ＡＱ　　　４３　　２４
  ＡＲ　　　４４　　２５
  ～　　　　～　　　～
  ＦＯ　　　１７１
  ＦＰ　　　１７２
  ＦＱ　　　１７３
  ＦＲ　　　１７４
  ＦＳ　　　１７５
  ＦＴ　　　１７６
  ＦＵ　　　１７７

    補足日時：2016/05/04 19:36

No.1 ベストアンサー 回答者： soixante 回答日時： 2016/05/04 18:22

いえ、このような時のためにループ処理があります。

たとえば以下。
’-----------------------------------------------------
Sub Gokei()

Dim c As Integer, Rng As Range

For c = 38 To 171 Step 7
Set Rng = Range(Cells(4, c), Cells(18, c))
Cells(19, c).Value = Application.WorksheetFunction.Sum(Rng)
Next c

Set Rng = Nothing

End Sub
’-----------------------------------------------------

変数c は列番です。
ｃを38　から　171　まで　７つおきにループ。
ここで、38というのは、AL列の列番、171は、FO列の列番です。
変数Rng はRange型で宣言しています。
このRngに、それぞれの列の４行目から１８行目をセットし、
そして、その列の１９行目に、Rngの合計値を入れる、
という処理としています。

この回答へのお礼

For c = 38 To 177 Step 7を使って完成できました。お教えありがとうございました。

お礼日時：2016/05/05 17:27

No.2 回答者： soixante 回答日時： 2016/05/04 19:45

＃１です。

補足拝見しました。

＞後６つのところに入力したい

ここの内容がいまいち不明ですが、７つおきでなく、AL～FU？列すべてということならば、
ループ のところ、Step7 ではなく、
For c=38 To 177 でOKです。

あるいは、補足に書かれているように、
AL~AR は全列、AS～FO　は７列おき、FO～FUは全列　ということなら処理は変わります。

もう少し具体的に示すと良い回答が付くでしょう。

この回答へのお礼

For c = 38 To 177 Step 7を使って完成できました。ありがとうございました。

お礼日時：2016/05/05 17:26