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

【问题标题】：Trying to input variable into a function in VBA尝试将变量输入到VBA中的函数中
【发布时间】：2023-01-16 20:18:30
【问题描述】：

我正在尝试创建一个 VBA 代码，将求和函数输入到单元格中：

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”。

【问题讨论】：

字符串必须由 & 连接（不是加号 (+)）--> ActiveCell.FormulaR1C1 = "=SUM(R[-" & LX & "]C:R[-4]C)"。附加提示：阅读How to avoid using select 和How to avoid copy/paste。

标签： excel vba function

【解决方案1】：

正如上面的 cmets 中所述，您需要从公式的括号中取出 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

【讨论】：