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

要在Excel工作簿中删除除指定或当前活动工作表之外的所有工作表，您可以按照以下方法进行操作。

使用VBA代码删除除指定工作表外的所有工作表
一键删除除当前活动工作表外的所有工作表（使用Kutools for Excel）

使用VBA代码删除除指定工作表外的所有工作表

使用以下VBA代码，您可以删除工作簿中的所有工作表，但保留Excel中指定的一个工作表。

1. 同时按下 Alt + F11 键打开 Microsoft Visual Basic 应用程序窗口。

2. 单击 插入 > 模块，然后将以下VBA代码复制并粘贴到模块窗口中。

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

注意：

1. “Sheet1” 和 “Sheet2” 是您希望保留在当前工作簿中的工作表。您可以根据需要更改它们。

2. 如果您想删除所有工作表但保留多个指定的工作表，请在代码第6行的 Then 关键字前添加 And xWs.Name <> "您的工作表名称"。例如：If xWs.Name <> "Sheet1" And xWs.Name <> "Sheet2" And xWs.Name <> "您的工作表名称" Then

3. 如果您只想保留一个工作表并删除工作簿中的所有其他工作表，请删除代码中的所有 And 条件。例如，要保留当前工作簿中的 Sheet1，您需要将第六行代码更改为：If xWs.Name <> "Sheet1" Then

使用Kutools for Excel一键删除除当前活动工作表外的所有工作表

您可以轻松地通过 Kutools for Excel 的 删除所有非活动工作表 工具，只需单击一下即可删除除当前活动工作表外的所有工作表。

1. 单击 Kutools Plus > 工作表 > 删除所有非活动工作表。

3. 然后会弹出一个对话框，如果您确定要删除除活动工作表外的所有工作表，请单击 确定 按钮，否则，单击 取消 按钮。

然后，工作簿中除当前活动工作表外的所有工作表都将被删除。

演示：使用Kutools for Excel删除除当前活动工作表外的所有工作表