從一系列單元格中復制公式並將它們粘貼到循環 X 單元格中

Question

我需要將公式從 O17:R17 復制並粘貼到 O25:R25 然后到 O33:R33 等，直到我完成了 163 次。 我使用下面的代碼做了類似的事情，並試圖弄清楚如何使我引用的范圍成為動態的。

rownums = 13
hotnum = 163

    ActiveSheet.Range("U13").Select
    Selection.Formula = "=(S13-S12)/S12"
    
    For i = 1 To HotNum - 3
    ActiveSheet.Range("U" & rownums).Select
    Selection.Copy
    ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Range("U" & rownums + 8).Select
    ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    rownums = rownums + 8
    Next i

Answer 1

嘗試：

Sub test()
    Set Rng = ActiveSheet.Range("O17:R17") ' initial range
    For i = 1 To 163
        Rng.Offset((i - 1) * 8).FormulaR1C1 = "=(RC[-2]-R[-1]C[-2])/R[-1]C[-2]" ' formula "=(S13-S12)/S12" in R1C1 notation
    Next
End Sub

結果在“顯示公式”模式