如何在Excel中删除所有空白工作表？

如何在Excel中删除所有空白工作表？

同时，如果您的工作簿中包含很多工作表，则其中有一些空白工作表。 现在，您要删除空白工作表以保存或存档文件。 您如何从多个工作表中搜索空白表并自动将其删除？

用VBA代码删除所有空白工作表

删除所有空白工作表 Kutools for Excel

用VBA代码删除所有空白工作表

对于您来说，检查空白工作表并一一删除它们是很麻烦的，但是使用以下VBA代码，您可以轻松地一次删除所有空白工作表。

1。 按住 ALT + F11 键，然后打开 Microsoft Visual Basic应用程序 窗口。

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

VBA：删除所有空白工作表

Sub DeleteBlankWorksheets（）更新20130830将Ws作为错误恢复工作时的下一个工作表Next Application.ScreenUpdating = False Application.DisplayAlerts = False对于Application.Worksheets中的每个Ws如果Application.WorksheetFunction.CountA（Ws.UsedRange）= 0然后Ws.Delete End如果Next Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

3。 然后按 F5 键，并立即删除所有空白工作表。

删除所有空白工作表 Kutools for Excel

如果您不熟悉VBA代码，我可以为您介绍一个简单的工具- Kutools for Excel，其 删除空白工作表 功能，您可以一键删除所有空的工作表。

Kutools for Excel 包括300多个便捷的Excel工具。 30天免费试用，不受限制。 立即获取.

当你已经安装 Kutools for Excel，请执行以下步骤：

1。 点击 企业 > 工作表工具 > 删除空白工作表，请参见屏幕截图：

2. 然后将出现一个提示框，提醒您是否要删除所有空白工作表，请参见屏幕截图：

3。 然后点击 是，并且空白工作表已成功删除。 查看屏幕截图：

如果您想进一步了解此功能，请单击 删除空白工作表.

相关文章：

如何在Excel中删除隐藏的工作表？