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

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

同時，如果您的工作簿中包含很多工作表，則其中有一些空白工作表。 現在，您要刪除空白工作表以保存或存檔文件。 您如何從多個工作表中搜索空白表并自動將其刪除？

用VBA代碼刪除所有空白工作表

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

用VBA代碼刪除所有空白工作表

對于您來說，檢查空白工作表并一一刪除它們是很麻煩的，但是使用以下VBA代碼，您可以輕松地一次刪除所有空白工作表。

1。 按住 ALT + F11 鍵，然后打開 Microsoft Visual Basic應用程序 窗口。

2。 點擊 插頁 > 模塊，然后將以下代碼粘貼到“模塊”窗口中。

VBA：刪除所有空白工作表

Sub DeleteBlankWorksheets（）更新20130830將Ws作為錯誤恢復工作時的下一個工作表Next Application.ScreenUpdating = False Application.DisplayAlerts = False對于Application.Worksheets中的每個Ws如果Application.WorksheetFunction.CountA（Ws.UsedRange）= 0然后Ws.Delete End如果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。 點擊 企業 > 工作表工具 > 刪除空白工作表，請參見屏幕截圖：

2. 然后將出現一個提示框，提醒您是否要刪除所有空白工作表，請參見屏幕截圖：

3。 然后點擊 是，并且空白工作表已成功刪除。 查看屏幕截圖：

如果您想進一步了解此功能，請單擊 刪除空白工作表.

相關文章：

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