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

如果你有一个包含许多工作表的工作簿，同时其中还有一些空白的工作表。现在你想删除这些空白工作表以节省或存档文件。你该如何从多个工作表中搜索空白工作表并自动删除它们呢？

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

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

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

逐一检查并删除空白工作表对你来说很麻烦，但通过以下 VBA 代码，你可以轻松一次性删除所有空白工作表。

1. 按住 ALT + F11 键，打开 Microsoft Visual Basic for Applications 窗口。

2. 点击 插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA：删除所有空白工作表

Sub DeleteBlankWorksheets()
'Update 20130830
Dim Ws As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Ws In Application.Worksheets
    If Application.WorksheetFunction.CountA(Ws.UsedRange) = 0 Then
        Ws.Delete
    End If
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. 点击 Kutools Plus > 工作表 > 删除空白工作表，参见截图：

2. 将弹出一个提示框，询问你是否要删除所有空白工作表，参见截图：

3. 然后点击 是，空白工作表即被成功删除。参见截图：

如果你想了解更多关于此功能的信息，请点击 删除空白工作表。

相关文章：

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