1.工作簿都有若干個(gè)工作表，統(tǒng)計(jì)每個(gè)表的最大行數(shù)如下

2.Alt+F11，在最后一個(gè)新建的工作表中，輸入如下代碼

Sub main()

Cells(1, 1) = "工作表"

Cells(1, 2) = "最大行數(shù)"

'下面的數(shù)字7不要超過最大工作表即可，隨意修改數(shù)值到最大的工作表

For i = 1 To 7

Cells(i + 1, "A") = Sheets(i).Name

Cells(i + 1, "B") = Sheets(i).Range("A65536").End(3).Row

Next i

End Sub

3.在輸入代碼的窗口中后，直接按F5，執(zhí)行代碼，關(guān)閉，返回Excel最后一個(gè)工作表，即得到如下結(jié)果：

可以統(tǒng)計(jì)到Sheet1帶數(shù)據(jù)的最大行是13行

可以統(tǒng)計(jì)到Sheet2帶數(shù)據(jù)的最大行是11行

VBA代碼注意區(qū)：