1、首先打开Excel工作表，在菜单栏中点击“开发工具”→“VisualBasic”，打开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”格式，即可运行。也可以下载其他有删除空白工作表的插件执行此操作。