VBAselect最后一列和最后一行

我试图select数据领域的最底部最右边的单元格。 我有一个20×20的数据网格，需要find最后一列，它会下来find有数据的最后一行。 我在第二行代码中使用活动单元格函数时遇到了问题。

Sub Add Range("A2").End(xlToRight).Select Range("A2").End(xlDown).Select End Sub 

Answer 1

如果你想修复你的当前代码：

 Sub Add Range("A2").End(xlToRight).End(xlDown).Select End Sub 

但是如果有任何空白的单元格横过或下降，它将会失败（停下来）。

请参阅饮食负责人链接的页面，以获得更好的方法。

Answer 2

 Sub Add ActiveCell.SpecialCells(xlCellTypeLastCell).Select End Sub