如何运行多个 VBA 代码

Question

我对在 Excel 中使用 VBA 还很陌生，但我想知道有没有办法同时运行多个代码？

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

到目前为止，我运行此代码以输入行然后输入标题，但除非我分别运行它们，否则它将无法工作。 是否有我需要输入的文本来组合它们，所以当我运行它时，它只会一次运行整个事情？ 谢谢！

Sub AddColumns()

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

End Sub

Sub AddHeader()

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

End Sub

Answer 1

您所要求的（同时运行多个宏）称为多线程，但这不是您想要的。

尝试将所有台词放在一个子句中：

Sub AddColumnsAndHeaders()

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

End Sub

Answer 2

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

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