尝试将变量输入到VBA中的函数中

Question

我正在尝试创建一个VBA代码，将sum函数输入单元格:

LR = Cells(Rows.Count, 1).End(xlUp).Row
LX = LR - 2
Range("B" & LX).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-LX]C:R[-4]C)"

但是当我把LX输入到求和函数时，它不认为它是一个变量。我该如何解决这个问题?因为LX取决于可以变化的初始行数。

我不知道如何解决这个问题。我得到运行时错误'1004'。

Answer 1

如上所述，您需要从公式的括号中取出LX。

同样，您应该尽量避免使用Select和ActiveCell，而是使用完全限定的引用对象:

修改代码:

Set Sht = ThisWorkbook.Worksheets("Sheet1") ' <-- modify "Sheet1" to your sheet's name
With Sht
LR = .Cells(.Rows.Count, 1).End(xlUp).Row
LX = LR - 2
.Range("B" & LX).FormulaR1C1 = "=SUM(R[-" & LX & "]C:R[-4]C)"
End With