引用最后一行 VBA 的公式答案

【问题标题】：Formula referencing last row VBA引用最后一行 VBA 的公式
【发布时间】：2017-05-24 03:14:20
【问题描述】：

我正在通过单个 Excel 单元格将一堆串联数据传递到 ODBC 工作簿中。单元格会根据数据中的行数而变化。为了解决这个问题，我想在第二个单元格（使用 VBA）中插入一个公式，看起来像这样......

With Sheets("MAIN")
LastRow = .Range("B" & .Rows.Count).End(xlUp).Row
End With    

Sheets("MAIN").Range("A1").Formula = "=("B" & LastRow)"

此代码不起作用。我认为它很接近，但我是一个黑客。你们谁能指出我正确的方向吗？

【问题讨论】：

标签： excel vba

【解决方案1】：

我想你想要：

Sheets("MAIN").Range("A1").Formula = "=B" & LastRow

而且，如果这是您应用程序这一部分的全部代码，最好（尽管绝对不需要）将最后一行包含在 With 块中，即

With Sheets("MAIN")
    LastRow = .Range("B" & .Rows.Count).End(xlUp).Row
    .Range("A1").Formula = "=B" & LastRow
End With

【讨论】：