如何快速删除excel工作薄中空白工作表

1、首先打开Excel工作表，在菜单栏中点击“开发工具”→“Visual Basic”，打开VBA编程工作环境，如下图一所示。如果找不到“开发工具”选项，可以依次点击“文件”→“选项”→“自定义功能区”，勾选“开发工具”选项，如下图二所示。

2、打开VBA编程工作环境后，在其中空白区域粘贴如下代码，添加自定义函数“删除空白工作表”，此函数依次遍历所有工作表，如果内容为空，则删除工作表，如下图三所示。

***************************************************

Sub 删除空白工作表()

    ' 避免弹出提示对话框

    Application.DisplayAlerts = False

    For Each sh In Worksheets

        ' 如果仅剩最后一个空白工作表，则直接退出

        ' 最后一个工作表无法删除

        If Worksheets.Count = 1 Then

            Exit For

        End If

        ' 如果工作表内容为空，则删除工作表

        If IsEmpty(sh.UsedRange) Then

            sh.Delete

        End If

    Next

    Application.DisplayAlerts = True

End Sub

***************************************************

注：

1. Application.DisplayAlerts = False”为避免弹出提示对话框，直接删除工作表；

2. 如果所有工作表均为空，则会保留一个工作表，因为无法删除所有工作表。

完成后退出VBA编程工作环境。

3、退出VBA编程工作环境后，在菜单栏中依次点击“视图”→“宏”，即可看见自定义函数“删除空白工作表”出现在其中。

4、鼠标选中“删除空白工作表”函数，点击“执行”，即可一键删除所有空白工作表。

5、如果提示无法启用宏，则可将Excel文件保存为“.xlsm”格式，即可运行。也可以下载其他有删除空白工作表的插件执行此操作。