方法一、
(1)、打开工具菜单，选择宏Visual Basic 编辑器命令，如图所示：
(2)、在打开的窗口中选择插入→模块命令，如图所示：
(3)输入如下内容，如图所示：
Sub sheetcount()
Dim num As Integer
num=ThisWorkbook.Sheets.Count
（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/diannaorumen/）Sheets(1).Select
（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/diannaorumen/）Cells(1,1)=num
End Sub
(4)、运行该宏，在该工作簿的第一个工作表的A1单元格中的数字就是工作表的个数。
方法二、
(1)按组合键，打开定义名称对话框，定义一个x，在引用位置处输入=get.workbook(4)，然后单击按钮，如图所示：
(2)在任意单元格输入=x，出来的结果就是工作表的个数。
