VBA统计一个EXCEL工作薄内多张工作表内最大行数的方法

1.工作簿都有若干个工作表，统计每个表的最大行数如下

2.Alt+F11，在最后一个新建的工作表中，输入如下代码

Sub main()

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

Cells(1, 2) = "最大行数"

'下面的数字7不要超过最大工作表即可，随意修改数值到最大的工作表

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，执行代码，关闭，返回Excel最后一个工作表，即得到如下结果：

可以统计到Sheet1带数据的最大行是13行

可以统计到Sheet2带数据的最大行是11行

VBA代码注意区：