如何计算工作簿中可见工作表的数量？

在一个包含多个工作表的大型工作簿中，一些工作表是可见的，而另一些则是隐藏的。在某些情况下，您可能需要统计工作簿中可见工作表的总数，那么如何快速进行计数呢？现在我将为您介绍一些快速统计工作簿中可见工作表数量的小技巧。

仅使用VBA统计可见工作表的数量

使用Kutools for Excel统计可见工作表/隐藏工作表/全部工作表的数量

仅使用VBA统计可见工作表的数量

在Excel中，您可以不逐一统计可见工作表，而是使用VBA快速计算可见工作表的数量。

1. 按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口，然后点击 插入 > 模块 以打开一个新模块。

2. 将以下VBA代码粘贴到模块窗口中。

VBA：统计工作簿中可见工作表的数量

Sub VisibleSheetsCount()
'UpdatebyKutoolsforExcel20150909
    Dim xSht As Variant
    Dim I As Long
    For Each xSht In ActiveWorkbook.Sheets
        If xSht.Visible Then I = I + 1
    Next
    MsgBox I & " sheets are visible", , "Kutools for Excel"
End Sub

3. 点击 运行 按钮。随后会弹出一个对话框，告诉您可见工作表的数量。

使用Kutools for Excel统计可见工作表/隐藏工作表/全部工作表的数量

如果您不熟悉VBA，可以使用 Kutools for Excel 的 导航 窗格快速查看可见工作表、隐藏工作表和所有工作表的数量。

1. 打开要统计可见工作表数量的工作簿，然后点击 Kutools > 导航。请参见截图：

2. 随后，导航窗格将出现在当前工作表的左侧，点击 工作簿与工作表标签进入工作簿与工作表部分。您可以在窗格底部查看可见工作表、隐藏工作表以及所有工作表（包括可见和隐藏）的数量。请参见截图：

如果您想隐藏导航窗格，只需点击 Kutools > 导航 即可将其关闭。

Kutools for Excel 的 导航窗格 功能强大，通过它，您可以查看工作表列表、单元格名称列表、列标题列表，还可以将区域、图片、公式作为自动文本添加。此外，您还可以跨选中的工作表查找和替换单词。 单击此处了解更多关于 导航窗格 的信息。