如果你使用 Microsoft Excel,可以使用 VBA 代码来统计一个 Excel 工作簿中有多少个工作表。
- 打开 Excel 工作簿
- 按 ALT + F11 打开 VBA 编辑器(或在开发工具中打开)
- 在模块窗口中粘贴以下代码:
- 按 F5 运行代码,你将看到一个对话框,显示当前工作表中工作簿的数量。
Sub CountSheets()
Dim wb As Workbook
Dim ws As Worksheet
Dim sheetCount As Integer
sheetCount = 0
Set wb = ThisWorkbook
For Each ws In wb.Worksheets
sheetCount = sheetCount + 1
Next ws
MsgBox "工作表数量:" & sheetCount
End Sub
请注意,上面的代码仅适用于 Microsoft Excel,并不适用于其他电子表格软件。
打赏作者
看到一个有75个工作表的工作簿,数不过来了。