Excel 循环相对参考

我正在尝试循环相对引用。
我在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

试试这个：

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