看这下面就可了额
1、按ALT+F11组合键调出VBA编辑器；2、左边工程栏目中，选择当前工作薄的名称，然后点击插入--模块；3、复制以下代码进去，最后按F5运行 Sub sheetcount() Dim num As Integer num = ThisWorkbook.Sheets.Count MsgBox "该工作薄含有" &num& " 个工作表" End Sub
