UDF для конкатенации элементов двух массивов VBA Excel

Question

Предположим, что существует два 1D массивы каждый из них содержит 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