利用VBA统计各个工作表的记录数目.docx

《利用VBA统计各个工作表的记录数目.docx》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、统计各个工作表记录数目1、代码即说明括号内红色字体为代码说明。代码如下：Sub统计各工作表记录的数目()Dimn%n=Sheets.Count（n表示当前工作簿工作表的数量）Worksheets.Addafter:=Sheets(Sheets.Count)（表示在最后一张工作表后面新建一张工作表）ActiveSheet.Name="数据统计"（新建的工作表命名为“数据统计”）DimrowAsLongrow=1DimnumAsLongForrow=1TonCells(row,1)=Sheets(row).Namenum=2DoIfSheets(row).Cells(num,1)<>"

2、"Thennum=num+1Else:GoToloop1EndIfLooploop1:num=num-2Sheets(n+1).Cells(row,2)=numNextEndSub2、实例该工作簿有四张工作表，分别为“鸡屁股”、“鸡脚”、“鸡腿”、“鸡翅”。剩下三张表如上图所示。运行代码结果为：1、注意事项（1）该代码记录的判断标准为，A列单元格不为空格，则num加1，所以务必保证每条记录的A列不为空格（2）同工作簿的工作表名字不能相同，所以，如果工作簿中已经存在名为“数据统计”的工作表，则代码会发生错误（3）默认原工作表第一行均为表头，不算记录数目当中