如何在 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 行 If 語句之前添加 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 刪除除當前活動工作表以外的所有工作表