如何在VBA中合并两个数组？

Question

特定

Dim arr1 As Variant
Dim arr2 As Variant
Dim arr3 As Variant

arr1 = Array("A", 1, "B", 2)
arr2 = Array("C", 3, "D", 4)

我可以对arr1和arr2执行什么操作,并将结果存储在arr3中,以便:

arr3 = ("A", "C", 1, 3, "B", "D", 2, 4)

Answer 1

试试这个:

arr3 = Split(Join(arr1, ",") & "," & Join(arr2, ","), ",") 

Answer 2

不幸的是,VB6中的Array类型没有那么多razzmatazz功能.您几乎必须遍历数组并手动将它们插入第三个数组

假设两个数组的长度相同

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

arr1() = Array("A", 1, "B", 2)
arr2() = Array("C", 3, "D", 4)

ReDim arr3(UBound(arr1) + UBound(arr2) + 1)

Dim i As Integer
For i = 0 To UBound(arr1)
    arr3(i * 2) = arr1(i)
    arr3(i * 2 + 1) = arr2(i)
Next i

更新:修复了代码.对于以前的错误版本感到抱歉.花了几分钟时间访问VB6编译器来检查它.