用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
来解答下 。
我们在工作中经常会遇到题主类似的问题 。不单单是统计行数的问题，还会有统计其它的数量的问题 。这就会用到EXCEL中的统计函数Counta 。
（COUNTA 函数计算区域 （区域：工作表上的两个或多个单元格 。区域中的单元格可以相邻或不相邻 。）中不为空的单元格的个数）
按题主要求，样表如下：
如果要统计每张表的行数，可在要显示结果的地方输入公式：
=COUNTA(A:A)
（样表在销售记录表H2单元格 ， 注意标题不能在A1单元格，若在可换成统计B列）
把这个公式复制每个表相应的地方就行了 。
这是统计每个表的行数，若要统计整个工作簿的则是输入公式：
=COUNTA(销售记录表:SheetN!A:A)
这样即可达到题主的要求 。
【excel如何统计簿内多张工作表行数】
