Excel多工作表行数统计方法

最佳答案这个问题用vba代码分三步就能实现计算，以下举例说明。例如：各表行数如下：如何自动计算？1、新建表格命名：data2、ALT+F11，调出VBA，插入代码3、ALT+F8执行代码即可实现。操作步骤：代码：Sub 计算数据行数()Dim mDim iDim oDim pDim qi = Workshe......

这个问题用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

版权声明：本文内容/及图片/由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭/侵权/违法违规的内容， 请发送邮件至 ks13@qq.com 举报，一经查实，本站将立刻删除。