怎样对工作表计数

来源：百度知道 编辑：UC知道 时间：2024/07/01 07:18:03
在一个工作簿里我插入了很多工作表，都重新根据表的内容重命名了，现在我想知道我这个工作簿里一共有多少工作表，该怎么办

Sub Sheet()
Dim X As Long
X = Sheets.Count
MsgBox "本工作簿共含 " & X & " 张工作表！"
End Sub

宏这样写比较好些！

没有现成的函数可用。
但也有两个办法。
一是用宏表函数。
插入－名称－定义，上面输入一个名称，比如ABC，下面引用位置输入公式：=GET.WORKBOOK(4)&T(NOW())
然后在一个单元格里输入公式：=ABC。单元格显示的数字就是当前工作簿内的工作表数目。
另一方法是用VBA实现，Alt+F11，插入一个模块，将下面代码粘贴到里面
Sub ABC()
[a1] = Sheets.Count
End Sub
然后执行这个宏就在A1单元格里显示出工作表数了。

再插入一张表,如果表名为sheet8,就有7张表,以此类推就此空表删除即可