如何统计一个EXCEL工作薄内多张工作表的行数？

日常办公过程中，你是否碰到此情此景，有一个EXCEL工作薄，工作薄内有N张工作表（N>100），每张工作表的格式均为第一行为标题，所有表标题顺序都一样，从第二行开始为数据，现在需要统计出该EXCEL工作薄内每个表(sheet1~sheetN)的行数，比如sheet1为150行，sheet2为100行，sheet3为80行，等等，如何实现呢？

这个问题用vba代码分三步就能实现计算，以下举例说明。

例如：

各表行数如下：

如何自动计算？

1、新建表格命名：data

2、ALT+F11，调出VBA，插入代码

3、ALT+F8执行代码即可实现。

操作步骤：

代码：

Sub 计算数据行数()
Dim m

Dim i

Dim o

Dim p

Dim q

i = Worksheets.Count

For m = 1 To i – 1

o = Sheets(“data”).Range(“A1048576”).End(xlUp).Row

p = Sheets(“data”).Range(“b1048576”).End(xlUp).Row

q = Worksheets(m).Range(“a1048576”).End(xlUp).Row

Sheets(“data”).Cells(o + 1, 1) = Worksheets(m).Name

Sheets(“data”).Cells(p + 1, 2) = q

Next

Sheets(“data”).Select

End Sub