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

如果您經常使用Excel電子表格，您可能遇到過工作簿中有多個空白工作表的問題。這些空白工作表不僅佔用您的磁碟空間，還會使您難以正確瀏覽和管理資料。

在本影片中，我們將逐步向您展示如何查詢並刪除Excel中的所有空白工作表。無論您的工作簿有多大或有多少工作表，本課程都將為您提供一種快速簡便的方法來清理您的Excel檔案。您可以透過遵循此處提供的說明來精簡您的工作簿，擺脫無用的工作表並改進工作流程。因此，讓我們開始學習如何快速從您的Excel檔案中刪除所有這些空白工作表吧！

刪除所有空白工作表

在這裡，我們將首先建立一個VBA模組，然後執行它來完成我們的任務。讓我們來看一個簡單的過程，學習如何刪除Excel中的所有空白工作表。

步驟1

考慮任何包含多個工作表的Excel工作簿。

首先，右鍵單擊任意工作表名稱，然後選擇“檢視程式碼”以開啟VBA應用程式。然後，單擊“插入”，選擇“模組”，並將下面的程式碼複製到文字框中，如下圖所示。

右鍵單擊 > 檢視程式碼 > 插入 > 模組 > 複製。

程式碼

Sub DeleteBlankWorksheets()
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