VBAselect某些列并应用公式

所以我需要select从第11列开始到1000的某些列。我需要在每个选定的列上应用一个公式。 我需要select的列有4个步骤。 我使用的代码是

For colNum = 11 To 1000 Step 4 Range(Cells(2, colNum), Cells(225, colNum)).FormulaR1C1 = "=(D2)(G2)*RC[-2]" Next colNum 

该代码为RC [-2]提供了正确的值，但是当它进入下一行时，公式中的单元格D2和G2不会更改为D3和G3 /到下一行中的对应单元格。 有任何想法吗？

提前致谢！

Answer 1

尝试这个：

 For colNum = 11 To 1000 Step 4 Range(Cells(2, colNum), Cells(225, colNum)).FormulaR1C1 = "=RC4*RC7*RC[-2]" Next colNum 

如果D和G是固定的，只有最后一个单元格正在移动。
我不确定你想用（D2）（G2）完成什么，它抛出#REF！ 错误。
另外，不要混淆。 如果你想使用R1C1，那么一致。
以下是以上的非R1C1公式。

编辑1：根据评论

 Dim i As Long: i = 1000 For colnum = 11 To 100 Step 4 Range(Cells(2, colnum), Cells(225, colnum)).Formula = "=$D2*$G2*" & _ Cells(2, colnum - i).Address(False, False) i = i - 1 Next colnum