vba - ループを介して列を変更する - VBA

Question

「合計」式を同じ行に異なる列に貼り付けるためのこのコードがあります（実際には、これは正確な式ではなく、「合計」は説明のためだけに使用されました）

for i = 1 to 100
Cells(2, (1 + 5 * (i - 1))).Formula = "=sum($A$1:$E$1)"
Next

しかし、貼り付けられたセルのように、すべての反復を変更するには、この数式が必要です。次に、 Cell "A1"( for i = 1) はwhen に変化する"F1"と同時に に変化しなければなりません。列をループするにはどうすればよいですか?"E1""J1"i = 2

前もって感謝します！

ルイス

Answer 1

For i = 1 to 100
    Cells(2, 5 + ((i - 1) * 5)).FormulaR1C1 = "=SUM(R[-1]C[-4]:R[-1]C[0])"
Next