在VBA for Excel上连接多个数组的值

Dim arr1() As Variant
Dim arr2() As Variant
Dim result As String

arr1 = Array("apple", "banana", "orange")
arr2 = Array("cat", "dog", "bird")

result = Join(arr1, ",") & "," & Join(arr2, ",")

Dim arr1() As Variant
Dim arr2() As Variant
Dim arr3() As Variant
Dim result As String

arr1 = Array("apple", "banana", "orange")
arr2 = Array("cat", "dog", "bird")
arr3 = Array("red", "green", "blue")

result = Join(Application.Transpose(Array(arr1, arr2, arr3)), ",")