史蒂夫（Steve）有一个工作簿，其中他为他从事的每个项目创建一个新的工作表标签。为了使事情易于管理，他隐藏了完整的选项卡/项目。史蒂夫现在有100多个隐藏的工作表。他需要定期重新审视已完成的项目。为此，Steve选择取消隐藏工作表。这将显示“取消隐藏”对话框，其中没有明显的顺序包含隐藏的工作表名称。要找到一个选项卡/项目，他需要滚动浏览这个非常小的对话框并寻找合适的选项卡。史蒂夫（Steve）认为这非常费力且费时，因此他想知道是否有更好的方法来查找和取消隐藏已完成项目的工作表。

解决此常见问题的一种方法是，您可以为工作簿中的工作表创建索引或目录。为此，您可以添加一个新的工作表，然后在工作表上放置指向工作簿中所有各个工作表的超链接。它可能包括几乎所有您想要的有关工作表的信息（除了超链接）。单击超链接，将显示所需的工作表，而无需滚动任何对话框。

您还可以创建第二个工作簿，其中仅包含您已完成的项目。将工作表从一个工作簿移动到另一个工作簿非常容易，因此使用两个工作簿（“活动”和“已完成”）

会很快。另外，您无需在工作簿中隐藏包含已完成项目的任何工作表，并且可以按所需的顺序放置它们。

如果您希望保持工作簿不变，那么您可能要考虑创建一个宏，以使显示隐藏的工作表变得容易。请考虑以下示例：

Sub UnHideWorksheets()

Dim sSheetName As String     Dim w As Worksheet     Dim sTemp As String

sTemp = "Name (or partial) of sheet to show?"

sSheetName = InputBox(sTemp, "Show Hidden Sheet")

If sSheetName > "" Then         sSheetName = LCase(sSheetName)

For Each w In Sheets             w.Tab.ColorIndex = xlColorIndexNone             sTemp = LCase(w.Name)

If Instr(sTemp, sSheetName) Then                 w.Visible = True                 w.Tab.ColorIndex = 6             End If         Next w     End If End Sub

该宏要求用户提供工作表名称，然后逐步浏览所有工作表。如果找到匹配项，则显示工作表，并且工作表的选项卡颜色设置为黄色。该宏实际上与部分匹配一起使用，这意味着您只能输入工作表名称的一部分，并且包含该部分匹配的任何工作表都将被隐藏。您可以轻松地将宏分配给快捷键或“快速访问工具栏”，以便立即将其激活。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本提示（13589）适用于Microsoft Excel 2007、2010、2013、2016、2019和Office 365中的Excel。