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

蓝野娉婷

工作簿内每个工作表都是前6行是标题行，最后一行数汇总行，仅统计除上述内容以外的其他数据的行数。

quqiyuan

假如A列，每个单元格都有数据(不能有空格)：
=COUNTA(A:A)-7

quqiyuan

如果有空格：试试这个
=LOOKUP(1,0/(A:A<>""),ROW(A:A))-7

蓝野娉婷

这个是要一次性统计出一个工作簿里所有工作表的数据行数，总行数减去7行（标题行6行，汇总行1行），将工作表名称放第一列，行数放第二列，求VBA代码。

quqiyuan

蓝野娉婷 发表于 2024-7-12 11:37
这个是要一次性统计出一个工作簿里所有工作表的数据行数，总行数减去7行（标题行6行，汇总行1行），将工作 ...

没有附件怎么求？

quqiyuan

usedrange.rows.count就好了，循环一下所有工作表

ww87725244

sub aa
dim ar(1 to 1000,1 to 2),i,k,sh
with thisworkbook
for each sh in .worksheets
i=sh.usedrange.rows.count
k=k+1
ar(k,1)=sh.name
ar(k,2)=i
next
worksheets(你要放数据的表格).[a1].resize(ubound(ar),ubound(ar,2))=ar
end with
end sub
大概是这样

蓝野娉婷

ww87725244 发表于 2024-7-12 11:55
sub aa
dim ar(1 to 1000,1 to 2),i,k,sh
with thisworkbook

统计的数字不太对，我上传了表格，您看下。

是统计第七行至倒数第二行数据区域，一共有多少行数据

蓝野娉婷

quqiyuan 发表于 2024-7-12 11:43
usedrange.rows.count就好了，循环一下所有工作表

没看懂，怎么操作

quqiyuan