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

假设您有一个包含多个工作表的大型工作簿，但其中一些工作表是空白的，没有任何内容。为了使工作簿更加专业和正式，您希望从工作簿中删除这些空白工作表。与其逐一手动删除空白工作表，本指南将介绍快速删除所有空白工作表的方法。

使用VBA删除所有空白工作表

使用Kutools for Excel删除所有空白工作表

使用VBA删除所有空白工作表

这里我介绍一个VBA代码，帮助您快速从打开的工作簿中删除所有空白工作表。

1. 按 Alt + F11 键打开 Microsoft Visual for Basic Applications 窗口。

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代码。会弹出一个对话框询问是否删除空白工作表。单击 是 以继续操作，或单击 否 取消操作。

4. 单击 是 后，会弹出一个对话框显示已删除的工作表数量。单击 确定 关闭对话框，所有空白工作表将被删除。

使用Kutools for Excel删除所有空白工作表

对于Excel初学者来说，使用VBA可能是一个相对困难的方法。但是，借助 Kutools for Excel 的 删除空白工作表 功能，您只需三次鼠标点击即可快速删除工作簿中的所有空白工作表！

1. 打开要删除空白工作表的工作簿，然后单击 Kutools Plus > 工作表 > 删除空白工作表。请参见截图：

相关文章：

• 如何在Excel中统计并删除列表中的重复项？
• 如何在Excel中删除第N个字符之后的字符串？
• 如何在Excel中删除括号内的文本？
• 如何在Excel中删除线条形状？