1. 获取当前excel的所有sheet以及sheet名
   excel文件" />

Sub test()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Activate
        Debug.Print ws.Name
    Next ws
End Sub
输出结果：
Sheet1
Sheet2
Sheet3
Sheet4
Sheet5

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

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

3.获取最大列数

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