方法1 - 通过应用Excel中的检查文档功能删除隐藏工作表我们在工作簿中隐藏了一些工作表。
步骤：
单击文件选项卡。
转到信息，然后检查问题，然后选择检查文档。将打开文档检查器对话框。
按检查。
向下滚动并从隐藏工作表部分中选择全部删除。
按关闭退出对话框。
取消隐藏选项变得模糊，这意味着所有隐藏的工作表都被删除。
方法2 – 在Excel中使用VBA宏删除隐藏工作表宏 1 – 删除并弹出确认窗口步骤：
右键单击工作表标题。从上下文菜单中选择查看代码。将出现一个VBA窗口。您可以按Alt+F11直接打开VBA窗口。
在VBA窗口中插入以下代码 -Sub Delete_Hidden_Sheets()
j = 1
While j <= Worksheets.Count
If Not Worksheets(j).Visible Then
Worksheets(j).Delete
Else
j = j + 1
End If
Wend
End Sub按运行图标运行代码。
将打开一个弹出确认框。按删除。
Excel 已删除所有隐藏工作表并使取消隐藏选项变得模糊。
宏 2 – 使用确认消息删除步骤：
在任何工作表标题上右键单击后，单击上下文菜单中的查看代码选项，打开VBA 窗口。
在其中插入以下代码：Sub Delete_Hidden_Sheets()
Dim x As Worksheet
ConfirmMacro = MsgBox("Are you sure to delete all the hidden sheets?", vbYesNo, " CONFIRMATION! ")
If ConfirmMacro = vbNo Then
Exit Sub
Else
End If
With Application
.DisplayAlerts = False
For Each x In Worksheets
If x.Visible = xlVeryHidden Then x.Visible = Hidden
If Not x.Visible Then x.Delete
Next x
.DisplayAlerts = True
End With
End Sub按运行图标。
将弹出一个确认对话框。按是确认。
所有隐藏的工作表都将被删除，并且没有取消隐藏选项。
宏 3 – 无需任何确认即可删除步骤：
在任意工作表标题上右键单击后，从上下文菜单中选择查看代码。
打开VBA窗口后，插入以下代码：Sub Remove_Hidden_Sheets()
Dim j As Integer
Dim X as Worksheet
Application.DisplayAlerts = False
For Each X In ActiveWorkbook.Sheets
If X.Visible = xlSheetHidden Then
X.Delete
j = j + 1
End If
Next X
Application.DisplayAlerts = True
End Sub单击运行图标运行宏。
没有取消隐藏选项意味着不存在隐藏工作表。
要记住的事情删除隐藏工作表后，无法撤消或恢复它们。因此，请确保您已创建备份。如果删除文件后尚未保存文件，请关闭工作簿而不保存，然后再次打开。然后你就会拿回床单。