Excel 如何运行多个VBA代码

我对在Excel中使用VBA相当陌生，但我想知道是否有一种方法可以同时运行多个代码

我的目标是做几件事，首先我需要插入一列，然后添加一个列标题，然后向下面的单元格添加一个公式，并复制所有行的公式

到目前为止，我已经运行了这段代码来输入行，然后输入头，但是除非我分别运行它们，否则它不会工作。我需要输入一个文本来组合它们，这样当我运行它时，它就可以一次运行整个过程了吗？谢谢大家!

Sub AddColumns()

Worksheets(1).Range("AH1").EntireColumn.Insert

End Sub

Sub AddHeader()

    Worksheets(1).Range("AH1").Formula = "Group A"

End Sub

---

您要求同时运行多个宏的操作称为多线程，但这不是您想要的

尝试将所有行放在一个子项中：

Sub AddColumnsAndHeaders()

Worksheets(1).Range("AH1").EntireColumn.Insert
Worksheets(1).Range("AH1").Formula = "Group A"

End Sub

---

您要求同时运行多个宏的操作称为多线程，但这不是您想要的

尝试将所有行放在一个子项中：

Sub AddColumnsAndHeaders()

Worksheets(1).Range("AH1").EntireColumn.Insert
Worksheets(1).Range("AH1").Formula = "Group A"

End Sub

---

另一种方法是简单地从另一个例程调用它们

Sub Main()

    AddColumns
    AddHeader

End Sub

Sub AddColumns()

    Worksheets(1).Range("AH1").EntireColumn.Insert

End Sub

Sub AddHeader()

    Worksheets(1).Range("AH1").Formula = "Group A"

End Sub  

---

另一种方法是简单地从另一个例程调用它们

Sub Main()

    AddColumns
    AddHeader

End Sub

Sub AddColumns()

    Worksheets(1).Range("AH1").EntireColumn.Insert

End Sub

Sub AddHeader()

    Worksheets(1).Range("AH1").Formula = "Group A"

End Sub  

---

也许我误解了，但您已经展示了两个子程序。你不能从主程序中调用这些子程序吗？VBA可能没有main的概念，但是需要链接sub。也许这就是你想要的。可能是一个副本：可能是Jumana的副本，如果我理解你的问题，你需要知道如何将每个动作组合到一个子项下。这就是VBA的目的。我建议你在网上完成基本的vba课程，有很多，基本的vba培训通常是免费的；一道菜是。您还可以在谷歌上搜索在线excel vba课程，也可以在谷歌上搜索您试图完成的任务，并研究其他人如何完成类似任务。然后你可以试着把你的任务和当/如果你有问题，问一个具体的问题；不，VBA是单线程的，一个任务必须完成才能运行另一个任务；不能同时运行两个宏。解决方法是您必须使用DoEvents来允许另一个宏运行。VBA不会产生宏的执行，因此您的计算机处理器将能够同时运行其他任务和事件。也许我有误解，但您已经显示了两个子例程。你不能从主程序中调用这些子程序吗？VBA可能没有main的概念，但是需要链接sub。也许这就是你想要的。可能是一个副本：可能是Jumana的副本，如果我理解你的问题，你需要知道如何将每个动作组合到一个子项下。这就是VBA的目的。我建议你在网上完成基本的vba课程，有很多，基本的vba培训通常是免费的；一道菜是。您还可以在谷歌上搜索在线excel vba课程，也可以在谷歌上搜索您试图完成的任务，并研究其他人如何完成类似任务。然后你可以试着把你的任务和当/如果你有问题，问一个具体的问题；不，VBA是单线程的，一个任务必须完成才能运行另一个任务；不能同时运行两个宏。解决方法是您必须使用DoEvents来允许另一个宏运行。VBA不会产生宏的执行，因此您的计算机处理器将能够同时运行其他任务和事件。谢谢，显然我需要对此做更多的研究，但感谢您的帮助！：谢谢你，显然我需要对此做更多的研究，但谢谢你的帮助！：