如何刪除 Excel 中的所有空白工作表？

如果您有一個包含許多工作表的工作簿，同時其中還有一些空白的工作表。現在您想刪除這些空白工作表以節省或存檔該文件。您要如何從多個工作表中搜尋空白的工作表並將其自動刪除呢？

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

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

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

逐一檢查並刪除空白工作表對您來說可能很麻煩，但使用以下的 VBA 程式碼，您可以輕鬆一次性刪除所有空白工作表。

1. 按住 ALT + F11 鍵，這將打開 Microsoft Visual Basic for Applications 視窗。

2. 點擊 插入 > 模組，然後在模組視窗中粘貼以下程式碼。

VBA：刪除所有空白工作表

Sub DeleteBlankWorksheets()
'Update 20130830
Dim Ws As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Ws In Application.Worksheets
    If Application.WorksheetFunction.CountA(Ws.UsedRange) = 0 Then
        Ws.Delete
    End If
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

3. 然後按下 F5 鍵，所有空白工作表將立即被刪除。

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

如果您不熟悉 VBA 程式碼，我可以向您介紹一個簡單的工具——Kutools for Excel，透過它的「刪除空白工作表」功能，您可以一鍵刪除所有空白工作表。

Kutools for Excel 包含超過 300 個實用的 Excel 工具。免費試用 30 天且無任何限制。 立即獲取。

當您安裝了 Kutools for Excel 後，請按照以下步驟操作：

1. 點擊 Kutools Plus > 工作表 > 刪除空白工作表，參見截圖：

2. 接著會出現一個提示框，詢問您是否要刪除所有空白工作表，參見截圖：

3. 然後點擊 是，空白工作表即成功刪除。參見截圖：

如果您想了解更多有關此功能的資訊，請點擊 刪除空白工作表。

相關文章：

如何刪除 Excel 中的隱藏工作表？