UDF用于连接两个阵列VBA Excel中的元素

Question

假设有两个一维数组它们中的每含有3种元素作为遵循

A 1 
2 3 
B C 

一个人如何将两者连接起来的阵列与元件的单个阵列

A1 
23 
BC 

通过使用&或CONCATENATE函数在表单操作中很容易做到这一点，但是如何在数组中执行此操作？

Answer 1

迭代通过数组并将它们组合成第三：

Sub foooooo() 
Dim arr1() As Variant 
Dim arr2() As Variant 
Dim outArr() As Variant 
arr1 = Array("A", "2", "B") 
arr2 = Array("1", "3", "C") 

ReDim outArr(UBound(arr1)) 
For i = LBound(arr1) To UBound(arr1) 
    outArr(i) = arr1(i) & arr2(i) 
Next i 

Debug.Print Join(outArr, ",") 

End Sub