如何在 Excel 中刪除所有工作表，只保留指定或當前的工作表？

作者Siluvia修改日期2024-10-28

若要在 Excel 工作表中刪除所有其他工作表，僅保留指定或目前的工作表，請依照下列方法操作。

使用 VBA 程式碼刪除所有工作表（僅保留指定工作表）
透過 Kutools for Excel 一鍵刪除所有工作表（僅保留目前作用中的工作表）

使用 VBA 程式碼刪除所有工作表（僅保留指定工作表）

只需使用下方的 VBA 程式碼，即可輕鬆刪除 Excel 活頁簿中的所有工作表，僅保留您指定的工作表。

1. 同時按下 Alt+F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

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。「Sheet 1」與「Sheet 2」是您希望保留在目前工作簿中的工作表，可依需求自由修改名稱。

2. 若您想刪除所有工作表，但保留多個指定工作表，請在程式碼第 6 行的 Then關鍵字之前加入And xWs.Name "您的工作表名稱"。例如：If xWs.Name "Sheet 1" And xWs.Name "Sheet 2"And xWs.Name "您的工作表名稱"Then

3. 若您只想保留一個工作表，並刪除活頁簿中的其他所有工作表，請移除程式碼中的所有 And 條件。例如，若要在目前活頁簿中僅保留 Sheet 1，請將第 6 行程式碼修改為：If xWs.Name "Sheet 1" Then

使用 Kutools for Excel 一鍵刪除所有工作表（僅保留目前作用中的工作表）

您只需透過當前工作表的刪除所有非作用中工作表功能，即可一鍵輕鬆刪除所有其他工作表（僅保留目前作用中的工作表）！Kutools for Excel。

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

1. 點選 KUTOOLS PLUS > 工作表 > 刪除所有非作用中工作表。

功能區中 Kutools 索引標籤內「刪除所有非作用中工作表」選項的螢幕截圖

3. 在彈出對話方塊後，若您確定要刪除所有工作表（僅保留作用中的工作表），請按一下確定按鈕；否則請按一下取消按鈕。

Excel 中用於刪除除作用中工作表外所有工作表的確認對話框螢幕截圖

隨後，活頁簿中所有工作表都會被刪除，僅保留目前作用中的工作表。

Kutools for Excel－透過超過 300 項必備工具全面強化 Excel，讓您的工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理與高效生產力！立即取得

示範：使用 Kutools for Excel 一鍵刪除所有工作表（僅保留目前作用中的工作表）

Kutools for Excel：超過 300 種實用工具隨手可得！盡享 AI 驅動功能，讓工作更聰明、更快速！立即下載！

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多