同时，如果您的工作簿中包含很多工作表，则其中有一些空白工作表。 现在，您要删除空白工作表以保存或存档文件。 您如何从多个工作表中搜索空白表并自动将其删除？
同时，如果您的工作簿中包含很多工作表，则其中有一些空白工作表。 现在，您要删除空白工作表以保存或存档文件。 您如何从多个工作表中搜索空白表并自动将其删除？
用VBA代码删除所有空白工作表
删除所有空白工作表 Kutools for Excel
用VBA代码删除所有空白工作表对于您来说，检查空白工作表并一一删除它们是很麻烦的，但是使用以下VBA代码，您可以轻松地一次删除所有空白工作表。
1。 按住 ALT + F11 键，然后打开 Microsoft Visual Basic应用程序 窗口。
2。 点击 插页 > 模块，然后将以下代码粘贴到“模块”窗口中。
VBA：删除所有空白工作表
Sub DeleteBlankWorksheets（）更新20130830将Ws作为错误恢复工作时的下一个工作表Next Application.ScreenUpdating = False Application.DisplayAlerts = False对于Application.Worksheets中的每个Ws如果Application.WorksheetFunction.CountA（Ws.UsedRange）= 0然后Ws.Delete End如果Next Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub3。 然后按 F5 键，并立即删除所有空白工作表。
删除所有空白工作表 Kutools for Excel如果您不熟悉VBA代码，我可以为您介绍一个简单的工具- Kutools for Excel，其 删除空白工作表 功能，您可以一键删除所有空的工作表。
Kutools for Excel 包括300多个便捷的Excel工具。 30天免费试用，不受限制。 立即获取.
当你已经安装 Kutools for Excel，请执行以下步骤：
1。 点击 企业 > 工作表工具 > 删除空白工作表，请参见屏幕截图：
2. 然后将出现一个提示框，提醒您是否要删除所有空白工作表，请参见屏幕截图：
3。 然后点击 是，并且空白工作表已成功删除。 查看屏幕截图：
如果您想进一步了解此功能，请单击 删除空白工作表.
相关文章：
如何在Excel中删除隐藏的工作表？
准备好增强您的 Excel 任务了吗？ 利用的力量 Kutools for Excel - 您终极的节省时间的工具。 简化复杂的任务并像专业人士一样浏览数据。 以闪电般的速度体验 Excel！
为什么需要 Kutools for Excel
🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。
📈 卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！
⏱️ 高效的批量操作：当你可以聪明地工作时，为什么还要付出额外的努力呢？ 轻松批量导入、导出、组合和调整数据。
📊 可定制的图表和报告：访问各种附加图表并生成富有洞察力的报告。
🗄️ 强大的导航窗格：通过强大的列管理器、工作表管理器和自定义收藏夹获得优势。
📝 七种类型的下拉列表：通过各种功能和类型的下拉列表使数据输入变得轻而易举。
🎓 用户友好：对于初学者来说轻而易举，对于专家来说是一个强大的工具。
***
