公式引用最后一行VBA

Question

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

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

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

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

Answer 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