统计各个工作表记录数目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 Sheets(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） 默认原工作表第一行均为表头，不算记录数目当中