在另一个Sub中调用多个变量

但是我不能在一个子例程中使用多个变量（第2部分）

您可以。只需删除(和)。所以变成

part2 Power_Origine, Power_Destination, Description_Destination, KnownUser_Destination 

或使用

Call part2(Power_Origine, Power_Destination, Description_Destination, KnownUser_Destination)

与上面相同。您仍然可以得到一个错误，因为你已经声明Power_Origine As Integer, Power_Destination As Integer, Description_Destination As Integer, KnownUser_Destination As Integer中part02，但part0他们Variants。声明为Integer中part0，它会工作:)

Sub part0()
    Dim Power_Origine As Integer
    Dim Description_Origine  As Integer
    Dim KnownUser_Origine  As Integer
    Dim Power_Destination  As Integer
    Dim Description_Destination As Integer
    Dim KnownUser_Destination  As Integer

    Power_Origine = 1
    Description_Origine = 2
    KnownUser_Origine = 3
    Power_Destination = 1
    Description_Destination = 2
    KnownUser_Destination = 3

    part1 Power_Destination
    part2 Power_Origine, Power_Destination, Description_Destination, KnownUser_Destination
End Sub

Sub part1(Power_Destination As Integer)
    MsgBox Power_Destination
End Sub

Sub part2(P_Orig As Integer, P_Dest As Integer, D_Dest As Integer, K_Dest As Integer)
    MsgBox "Hello " & P_Dest & D_Dest
End Sub

您可能还想阅读按引用和按值传递变量