VBA选择某些列并应用公式

Question

所以我需要选择某些列，从第11列开始，一直到1000。我需要在每个选定的列上应用一个公式。我需要选择的列分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公式。

Edit1:基于评论的

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