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

如果您经常使用Excel电子表格，您可能遇到过工作簿中有多个空白工作表的问题。这些空白工作表不仅占用您的磁盘空间，还会使您难以正确浏览和管理数据。

在本视频中，我们将逐步向您展示如何查找并删除Excel中的所有空白工作表。无论您的工作簿有多大或有多少工作表，本课程都将为您提供一种快速简便的方法来清理您的Excel文件。您可以通过遵循此处提供的说明来精简您的工作簿，摆脱无用的工作表并改进工作流程。因此，让我们开始学习如何快速从您的Excel文件中删除所有这些空白工作表吧！

删除所有空白工作表

在这里，我们将首先创建一个VBA模块，然后运行它来完成我们的任务。让我们来看一个简单的过程，学习如何删除Excel中的所有空白工作表。

步骤1

考虑任何包含多个工作表的Excel工作簿。

首先，右键单击任意工作表名称，然后选择“查看代码”以打开VBA应用程序。然后，单击“插入”，选择“模块”，并将下面的代码复制到文本框中，如下图所示。

右键单击 > 查看代码 > 插入 > 模块 > 复制。

代码

Sub DeleteBlankWorksheets()
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