《利用VBA统计各个工作表的记录数目.docx》由会员分享,可在线阅读,更多相关《利用VBA统计各个工作表的记录数目.docx(2页珍藏版)》请在金锄头文库上搜索。
1、统计各个工作表记录数目1、 代码即说明括号内红色字体为代码说明。代码如下:Sub 统计各工作表记录的数目()Dim n%n = Sheets.Count(n表示当前工作簿工作表的数量)Worksheets.Add after:=Sheets(Sheets.Count)(表示在最后一张工作表后面新建一张工作表)ActiveSheet.Name = 数据统计(新建的工作表命名为“数据统计”)Dim row As Longrow = 1 Dim num As LongFor row = 1 To nCells(row, 1) = Sheets(row).Name num = 2 Do If Shee
2、ts(row).Cells(num, 1) Then num = num + 1 Else: GoTo loop1 End If Looploop1: num = num - 2 Sheets(n + 1).Cells(row, 2) = numNextEnd Sub2、 实例该工作簿有四张工作表,分别为“鸡屁股”、“鸡脚”、“鸡腿”、“鸡翅”。 剩下三张表如上图所示。运行代码结果为:3、 注意事项(1) 该代码记录的判断标准为,A列单元格不为空格,则num加1,所以务必保证每条记录的A列不为空格(2) 同工作簿的工作表名字不能相同,所以,如果工作簿中已经存在名为“数据统计”的工作表,则代码会发生错误(3) 默认原工作表第一行均为表头,不算记录数目当中