|
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代码注意区：
|
|
|
