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

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

使用 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。會出現一個對話框詢問是否要刪除空白工作表。點擊 是 以繼續，或 否 取消操作。

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

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

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

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

相關文章：

• 如何在 Excel 中計算並刪除列表中的重複項？
• 如何在 Excel 中刪除第 n 個字元後的字串？
• 如何在 Excel 中刪除括號內的文字？
• 如何在 Excel 中刪除線條形狀？