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