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

假設您有一個包含多張工作表的大型工作簿，但是此工作簿中有一些空白表而沒有任何內容。 為了使工作簿更加專業和正式，您需要從工作簿中刪除這些空白表。 我沒有一一刪除空紙，而是介紹了快速刪除所有空白紙的方法。

通過VBA刪除空白紙

通過Kutools for Excel刪除空白表

---

通過VBA刪除空白紙

在這裡，我介紹一個VBA，以幫助您快速從打開的工作簿中刪除所有空白表。

1。 按 Alt + F11鍵 啟用鍵 Microsoft Visual Basic應用程序 窗口。

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，並彈出一個對話框，提醒您是否要刪除空白表，請單擊 是 繼續移除 沒有 取消此VBA。

4。 點擊後 是，會彈出一個對話框，告訴您已刪除的紙張數量，單擊 OK 將其關閉，此時所有空紙都已被移走。

---

通過Kutools for Excel刪除空白表

對於某些Excel專家來說，VBA很難執行，但是 Excel的Kutools“ 刪除空白工作表 功能，您可以通過單擊三下鼠標快速刪除工作簿中的所有空白表！

後 免費安裝 Kutools for Excel，請執行以下操作：

1.啟用要刪除其空白表的工作簿，然後單擊 Kutools 加 > 下載學習單 > 刪除空白工作表。 看截圖：

 

---

相關文章：

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

---