如何快速计算Excel中隐藏工作表的数量？

如果您有一个包含数百个工作表的大型工作簿，并且某些工作表是隐藏的。 为了满足某些特殊需求，您想知道工作簿中隐藏的工作表的数量，该如何做而不是一一计数？ 现在，我将介绍两个技巧，它们可以一次快速计算隐藏的工作表。

用VBA计算隐藏的工作表

使用Kutools for Excel计算隐藏/可见工作表

使用Kutools for Excel删除隐藏的工作表或取消隐藏所有隐藏的工作表

---

用VBA计算隐藏的工作表

我介绍了一个VBA代码，该代码可以弹出一个对话框，告诉您工作簿中隐藏工作表的数量。

1。 按 Alt + F11键 启用 Microsoft Visual Basic应用程序 窗口。

2。 点击 插页 > 模块，然后将以下代码粘贴到新代码中 模块 窗口。

VBA：计算隐藏的工作表。

Sub vhCount()
'Updateby20150602
Dim xWs As Worksheet
Dim xCount As Integer
For Each xWs In Application.ActiveWorkbook.Sheets
    If xWs.Visible Then xCount = xCount + 1
Next
MsgBox "Visible : " & xCount & vbCrLf & _
    "Hidden : " & ActiveWorkbook.Sheets.Count - xCount
End Sub

3。 按 F5 键运行代码，然后弹出一个对话框，告诉您隐藏的工作表的数量和可见的工作表的数量。

---

使用Kutools for Excel计算隐藏/可见工作表

如果您不熟悉VBA，则可以免费安装 Kutools for Excel 一目了然地计算页数，隐藏页数和可见页数。

后 免费安装 Kutools for Excel，请执行以下操作：

1。 点击 库工具 > 旅游导航 显示窗格。 看截图：

2。 然后点击 工作簿和工作表 按钮以列出工作簿和工作表，然后转到窗格底部，您可以找到总工作表，隐藏工作表和可见工作表的数量。

提示： 如果您不再需要导航窗格，请单击 库工具 > 旅游导航 再次隐藏它。

---

使用Kutools for Excel删除隐藏的工作表或取消隐藏所有隐藏的工作表

Kutools for Excel，您也可以一键删除所有隐藏的工作表。

1.如果要取消隐藏所有隐藏的工作表，只需单击 库工具 > 显示隐藏 > 取消隐藏所有隐藏的工作表.

2.如果要删除所有隐藏的工作表，只需单击 企业 > 工作表 > 删除所有隐藏的工作表。 看截图：