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

要刪除Excel工作簿中除指定的一個或當前活動工作表以外的所有工作表，可以按照以下所示的方法進行處理。

刪除除帶有VBA代碼的指定圖紙之外的所有圖紙
一鍵式刪除所有的工作表，但當前使用Kutools for Excel的工作表除外

刪除除帶有VBA代碼的指定圖紙之外的所有圖紙

使用下面的VBA代碼，可以刪除工作簿中的所有工作表，但Excel中的特定工作表除外。

1。 按 其他 + 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.如果要刪除所有內容但保留更多的工作表，請添加代碼 和xWs.Name <>“您的工作表名稱" 之前 然後 代碼第六行中的單詞。 如：

如果xWs.Name <>“ Sheet1”和xWs.Name <>“ Sheet2” 和xWs.Name <>“您的工作表名稱” 然後

3.如果您只想保留一張紙並將其從工作簿中刪除，請刪除所有 和 代碼中的條件。 例如，為了將sheet1保留在當前工作簿中，您需要將第六行代碼更改為： 如果xWs.Name <>“ Sheet1”然後

使用Kutools for Excel刪除除當前活動的工作表以外的所有工作表（僅單擊一次）

Y您只需單擊一下即可輕鬆刪除當前活動工作表以外的所有工作表 刪除所有不活動的工作表 的效用 Excel的Kutools.

1。 點擊 Kutools 加 > 下載學習單 > 刪除所有不活動的工作表. 

3.然後彈出一個對話框，如果您決定刪除除活動頁面以外的所有工作表，請單擊 OK 按鈕，否則，請點擊 取消 按鈕。

然後，所有工作表都將被刪除，但工作簿中當前處於活動狀態的工作表除外。

使用Kutools for Excel在所選單元格的中間添加文本