一个模块中的多个宏如何按顺序自动运行(Excel VBA)

将一个略微复杂的工作内容编入VBA，我们可能需要许多宏拼在一起运行才能实现。那么如何按照自己想要的顺序依次运行这些宏，实现我们需要的结果？

一个办法是编写一个新的宏，分别按顺序call你需要运行的宏。call的方法有几种，比较简单的是以下两种，

call 宏1 call 宏2

或者省略call，直接

宏1 宏2

这样，你需要调用的宏就会按照顺序执行。

但是，当你调用的宏非常多的时候，可能有几十个，以上还是有点麻烦。此时可以如下操作：

所有的宏有规律命名，例如有15个，那么宏依次是 sub hong1,sub hong2,sub hong3......sub hong15 最后写个循环汇总以上所有宏

Sub huizong() Dim q For q = 1 To 15 Application.Run "hong" & q Next q End Sub

运行最后这个汇总宏，你的前15个宏就会依次按顺序运行。