2021-02-05 VBA获取最大行列区域

Sub 获取最大行列区域()

Dim i
Dim j

i = Range("A" & Rows.Count).End(xlUp).Row '通过A1,获得使用的最大行
' i=Cells(Rows.Count, 1).End(xlUp).Row  '上面也可以使用这样的写法获得最大行
j = Cells(1, Columns.Count).End(xlToLeft).Column '通过A1,获得使用的最大列

 Range(Cells(1, 1), Cells(i, j)).Select '选中最大行列所包含的区域

  
End Sub