如何快速檢查 Excel 中的工作表是否為空？

如果在一個龐大的工作簿中有一些空白工作表，您要如何快速檢查工作簿中的工作表是否為空，然後刪除它呢？在 Excel 中，有一個內建函數可以判斷工作表是否為空，但在此我將介紹給您一段 VBA 程式碼來檢查工作表是否為空。

使用 VBA 檢查工作表是否為空

使用 VBA 檢查工作表是否為空

要檢查工作表是否為空，您可以使用以下巨集程式碼快速判斷工作表是否為空白。

1. 啟用您要檢查是否為空的工作表，按下 Alt + F11 鍵打開 Microsoft Visual Basic for Applications 視窗，並點擊 插入 > 模組 以創建新的 模組。

2. 在空白的腳本中，將以下巨集程式碼貼上。請參閱截圖：

VBA：檢查工作表是否為空

Sub CheckSheetEmpty()
'UpdatebyExtendoffice20170830
    If WorksheetFunction.CountA(ActiveSheet.UsedRange) = 0 And ActiveSheet.Shapes.Count = 0 Then
        MsgBox "Sheet is empty", vbInformation, "KuTools For Excel"
    Else
        MsgBox "Sheet is not empty", vbInformation, "KuTools For Excel"
    End If
End Sub

3. 儲存程式碼並按下 F5 鍵執行程式碼，隨後會彈出一個對話框，告知您該工作表是否為空。

或者