循环相对参考

Question

我正在尝试循环相对引用。
我在CG9中有一个引用到日期列的第一个单元格的日期。
然后执行一些操作，我希望CG9将其引用更改为第二行中的日期。

在每次循环更改之间，我正在做一些操作。

Sub Macro7()

Dim i As Long

For i = -2 To 3451

    Range("CG9").FormulaR1C1 = "=R[-i]C[-24]"
    '#operations

Next i
    
End Sub

Answer 1

尝试一下：

Sub Macro7()
    Dim i As Long
    For i = -2 To 3451
        Range("CG9").FormulaR1C1 = "=R[-" & i & "]C[-24]"
    Next i
End Sub