1. 获取当前excel的所有sheet以及sheet名
   

Sub test()Dim ws As WorksheetFor Each ws In Worksheetsws.ActivateDebug.Print ws.NameNext ws
End Sub
输出结果：
Sheet1
Sheet2
Sheet3
Sheet4
Sheet5

2.获取最大行数
首先要明白取最大行的方式，为什么这样取
正常来说ctrl+下箭头，能够获得最大行，但是如果中间有空行就不好用了，所以大家都是反着来，取得是从1048576开始ctrl+上箭头所得到的行数就是最大行

Sub test()Dim lastrow As Longlastrow = Worksheets("Sheet5").Cells(Rows.Count, 1).End(xlUp).RowDebug.Print lastrow
End Sub
执行结果：16 

3.获取最大列数

Sub test()Dim lastcolumn As Longlastcolumn = Worksheets("Sheet5").Cells(1, Columns.Count).End(xlToLeft).ColumnDebug.Print lastcolumn
End Sub
执行结果：
6