使用從列尾開始更改范圍值，並將其用於公式中的下一列excel vba

Question

盡管我可以輕松地在靜態工作表中創建必要的公式，但我希望能夠在VBA中為我的客戶執行此操作，其中Q列中的總值將從Q41移至Q100等...我知道如何選擇通過使用以下值：

Range("Q1").End(xlDown).Offset(0, 0).Select

但是，我想知道要在其中鍵入公式的單元格R1中的正確語法。 當前，它正在計算總計所在的列，並表示為：

ActiveCell.FormulaR1C1 = "=RC[-1]/R[40]C[-1]"

但是，如果總數在不同的行號上，則將沒有用。 隨附的是電子表格中的一個剪輯，其中顯示了手動公式，以演示我的追求。

手動公式

Answer 1

采用：

With Range("Q1", Range("Q1").End(xlDown)).Offset(0, 1)
    .Resize(.Rows.Count - 1).Formula = "=RC[-1]/R" & .Cells(.Rows.Count).Row & "C[-1]"
End With