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

ms excelmicrosoft technologiescomputers更新于 2024/8/3 7:40:17

如果您经常使用 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