如何在 Excel 中删除除指定/当前工作表之外的所有工作表?

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

Excel 是一款功能强大的程序，常用于数据管理和分析。在处理包含大量工作表的复杂工作簿时，您可能需要删除多余的工作表，以简化和精简工作簿。手动删除工作表可能需要一些时间，尤其是在工作表数量较多的情况下。在本教程中，我们将引导您完成删除除所选工作表或当前正在查看的工作表之外的所有 Excel 工作表的过程。无论您是想保留特定页面还是当前正在处理的页面，此策略都能让您快速有效地完成任务。

您可以按照本文提供的指南，学习如何通过删除所有多余的工作表来整理 Excel 工作簿。让我们来看看如何删除不需要的 Excel 工作表，同时保留关键工作表。

删除除指定/当前工作表之外的所有工作表

我们将首先创建一个 VBA 模块，然后运行它来完成任务。接下来，让我们通过一个简单的过程来了解如何在 Excel 中删除除指定/当前工作表之外的所有工作表。

步骤 1

假设一个包含多个工作表的 Excel 工作簿。

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

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

代码

Sub DeleteSheets1()
   Dim xWs As Worksheet
   Application.ScreenUpdating = False
   Application.DisplayAlerts  = False
   For Each xWs In Application.ActiveWorkbook.Worksheets
      If xWs.Name <> "Sheet1" And xWs.Name <> "Sheet2" Then
         xWs.Delete
      End If
   Next
   Application.DisplayAlerts = True
   Application.ScreenUpdating = True
End Sub