VBA获取当前工作表的最后一行和最后一列

获取当前工作表的最后一行可以使用以下代码：

Dim lastRow As Long
lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

这个代码将在第一列从下往上扫描，找到第一个非空单元格所在的行数，即为最后一行。

获取当前工作表的最后一列可以使用以下代码：

Dim lastCol As Long
lastCol = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column

这个代码将在第一行从右往左扫描，找到第一个非空单元格所在的列数，即为最后一列。