如何從 Excel 工作表中移除空白的工作表？

作者Sun修改日期2024-11-20

假設您有一個包含多張工作表的大型活頁簿，其中卻夾雜著一些完全空白的工作表。為了讓活頁簿看起來更專業、整潔，您希望將這些空白工作表一併移除。與其逐一手動刪除，本指南將為您介紹快速一次清除所有空白工作表的高效方法。

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

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

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

這裡提供一段 VBA 程式碼，助您快速清除已開啟活頁簿中的所有空白工作表。

1. 按下 Alt + F11 鍵，即可開啟 Microsoft Visual Basic for 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。此時將彈出對話方塊，詢問是否要移除空白工作表。點擊是即可繼續操作，或點擊否取消操作。

顯示 Excel 中確認刪除空白工作表之對話框的截圖

4. 點擊是後，將彈出一個顯示已移除工作表數量的對話方塊；接著點擊確定即可關閉對話方塊，所有空白工作表隨即被清除。

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