Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/25.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 引用最后一行VBA的公式_Excel_Vba - Fatal编程技术网

Excel 引用最后一行VBA的公式

Excel 引用最后一行VBA的公式,excel,vba,Excel,Vba,我通过单个Excel单元格将一组连接的数据传递到ODBC工作簿中。单元格将根据数据中的行数进行更改。为了管理这个,我想使用VBA将一个公式插入到第二个单元格中,它看起来像这样 With Sheets("MAIN") LastRow = .Range("B" & .Rows.Count).End(xlUp).Row End With Sheets("MAIN").Range("A1").Formula = "=("B" & LastRow)" 这个代码不起作用。我觉得很

我通过单个Excel单元格将一组连接的数据传递到ODBC工作簿中。单元格将根据数据中的行数进行更改。为了管理这个,我想使用VBA将一个公式插入到第二个单元格中,它看起来像这样

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

Sheets("MAIN").Range("A1").Formula = "=("B" & LastRow)"
这个代码不起作用。我觉得很接近,但我是个黑客。你们谁能给我指出正确的方向吗?

我想你们想要:

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    

你帮了大忙。非常感谢。