引用最后一行VBA的公式

我通过一个Excel单元格将一串连接的数据传递给一个ODBC工作簿。 单元格根据数据中的行数进行更改。 为了pipe理这个，我想插入一个公式到第二个单元格（使用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