使用从列的末端使用更改范围值，然后在公式中使用它下一列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