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

(0)

相关推荐