通常，我们可以在工作表中运行一个宏，如果有多个工作表需要应用同一宏，则应一张一张地触发代码。 是否还有其他快速方法可以在Excel中一次在多个工作表上运行同一宏？
Sub Dosomething()
Dim xSh As Worksheet
Application.ScreenUpdating = False
For Each xSh In Worksheets
xSh.Select
Call RunCode
Application.ScreenUpdating = True
End Sub
Sub RunCode()
your code here
End Sub
备注
：在以上代码中，请复制并粘贴您自己的代码，但不要
小组
标题和
END SUB
之间的页脚
子Runcode（）
和
END SUB
脚本。 看截图：
3
。 然后将光标放在第一部分宏上，然后按
F5
键运行代码，您的宏代码将一一应用于表格。
从多个工作簿中删除所有宏：
Kutools for Excel
s
批量删除所有宏
实用程序可以帮助您根据需要从多个工作簿中删除所有宏。
下载并免费试用 Kutools for Excel 现在！
Kutools for Excel
：具有300多个方便的Excel加载项，可以在30天内免费试用，没有任何限制。
立即下载并免费试用！
将小时转化为分钟 Kutools for Excel!
准备好增强您的 Excel 任务了吗？ 利用的力量 Kutools for Excel - 您终极的节省时间的工具。 简化复杂的任务并像专业人士一样浏览数据。 以闪电般的速度体验 Excel！
为什么需要 Kutools for Excel
🛠️
超过 300 项强大功能
: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。
📈
卓越的数据处理能力
：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！
⏱️
高效的批量操作
：当你可以聪明地工作时，为什么还要付出额外的努力呢？ 轻松批量导入、导出、组合和调整数据。
📊
可定制的
图表
和报告
：访问各种附加图表并生成富有洞察力的报告。
🗄️
强大的导航窗格
：通过强大的列管理器、工作表管理器和自定义收藏夹获得优势。
📝
七种类型的下拉列表
：通过各种功能和类型的下拉列表使数据输入变得轻而易举。
🎓
用户友好
：对于初学者来说轻而易举，对于专家来说是一个强大的工具。
*** ***
，发布者，Access，Visio和Project。
在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
每天将您的工作效率提高50％，并减少数百次鼠标单击！
*** ***
