如何在Excel中刪除除指定/當前工作表外的所有工作表？

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