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

如何运行多个VBA代码

2 个答案: