用于连接两个数组VBA Excel的元素的UDF

假设有两个一维数组，每个数组包含三个元素，如下所示

A 1 2 3 BC 

如何将两个数组连接成一个具有元素的数组

 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