使用列末尾的更改范围值，并在公式下一列excel vba中使用它

Question

虽然我可以在静态工作表中轻松创建必要的公式，但我希望能够在VBA中为我的客户端执行此操作，其中Q列中的总值将从Q41移动到Q100等...我知道如何使用以下方法选择值：

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

但是，我想知道Cell R1中我想输入公式的正确语法。目前，它正在计算总数所在的列，并按如下方式表示：

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

但是，如果总数在不同的行号上，则不会有用。 附上电子表格中的一个剪辑，其中显示的是手动公式，以展示我的目标。

Manual Formula

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