如何從 Excel 工作簿中刪除空白工作表

Author Sun Last modified 2025-08-23

假設您有一個包含多個工作表的大型工作簿，但其中有些工作表是完全空白的。為了讓工作簿看起來更專業和正式，您希望將這些空白工作表從工作簿中移除。與其逐一手動刪除空白工作表，本指南將介紹快速刪除所有空白工作表的方法。

使用 VBA 刪除所有空白工作表

使用 Kutools for Excel 刪除所有空白工作表

使用 VBA 刪除所有空白工作表

這裡我將介紹一個 VBA 程式碼，幫助您快速刪除開啟的工作簿中的所有空白工作表。

1. 按下 Alt + F11 鍵以啟用 Microsoft Visual for Basic Applications 視窗。

2. 點擊插入 > 模組，將以下 VBA 程式碼貼到新開啟的模組視窗中。

VBA：刪除空白工作表。

Sub DeletEmptySheets()
'UpdatebyKutoolsforExcel20151130
    Dim xWs As Worksheet
    Dim xAlert As Boolean
    Dim xCount As Long
    xAlert = Application.DisplayAlerts
    Application.DisplayAlerts = False
    If MsgBox("Are you sure to remove all empty sheets?", vbYesNo, "Kutools for Excel") = vbNo Then Exit Sub
    For Each xWs In ActiveWorkbook.Worksheets
        If (Application.CountA(xWs.Cells) = 0) And _
           (xWs.Shapes.Count = 0) Then
            xWs.Delete
            xCount = xCount + 1
        End If
    Next
    MsgBox "You have removed " & xCount & " empty sheet(s)", , "Kutools for Excel"
    Application.DisplayAlerts = xAlert
End Sub

3. 按下 F5 鍵或點擊執行按鈕來執行 VBA。會出現一個對話框詢問是否要刪除空白工作表。點擊是以繼續，或否取消操作。

A screenshot showing the dialog box to confirm the removal of empty sheets in Excel

4. 點擊是後，會出現一個對話框顯示已刪除的工作表數量。點擊確定關閉它，所有空白工作表將被刪除。

A screenshot showing the confirmation message for the number of empty sheets removed in Excel

使用 Kutools for Excel 刪除所有空白工作表

對於 Excel 初學者來說，使用 VBA 可能是一個比較困難的方法。但是，有了 Kutools for Excel 的 刪除空白工作表 功能，您只需三次滑鼠點擊即可快速刪除工作簿中的所有空白工作表！

Kutools for Excel 提供超過 300 種進階功能，簡化複雜任務，提升創造力與效率。 結合 AI 能力，Kutools 能夠精準自動化任務，讓數據管理變得輕而易舉。Kutools for Excel 的詳細資訊...免費試用...

1. 啟用您要刪除空白工作表的工作簿，然後點擊 Kutools Plus > 工作表 > 刪除空白工作表。請參閱截圖：

Kutools for Excel - 超過 300 種必備工具，讓 Excel 功能更強大。永久免費享受 AI 功能！立即獲取

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多