如何从工作簿中删除空白表

假设您有一个包含多个工作表的大型工作簿，但是此工作簿中有一些空白表而没有任何内容。 为了使工作簿更加专业和正式，您需要从工作簿中删除这些空白表。 我没有一一删除空纸，而是介绍了快速删除所有空白纸的方法。

通过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很难执行，但是 Kutools for Excel“ 删除空白工作表 功能，您可以通过单击三下鼠标快速删除工作簿中的所有空白工作表！

后 免费安装 Kutools for Excel，请执行以下操作：

1.启用要删除其空白表的工作簿，然后单击 Kutools 加 > 工作表 > 删除空白工作表。 看截图：

 

---

相关文章：

• 如何计算和从Excel中的列表中删除重复项？
• 如何在Excel中的第n个字符后删除字符串？
• 如何在Excel中删除括号/括号内的文本？
• 如何在Excel中删除线条形状？

---