如何快速统计Excel中Sheet数

方式1：

在excel中使用组合快捷键 alt + F11 调出vba编辑器

选中左侧项目名称，右键->插入->模块

将如下代码复制到新建模块窗口中，并使用快捷键F5运行

Sub sheetcount()
  
Dim num As Integer
  
num = ThisWorkbook.Sheets.Count
  
MsgBox "该工作薄含有 " & num & " 个工作表"
  
End Sub

 方式2：

Alt+F11打开VBE，插入模块，复制粘贴代码，保存
Function sheets()
sheets = Worksheets.Count
End Function

在工作表中任意单元格输入=sheets()，即可得到当前工作簿的工作表数

方式3：

Alt+F11打开VBE，然后在 立即窗口中输入   Debug.Print Sheets.Count 按回车