使用 Split 和Join两个函数，可以简单，粗暴，快速合并数组。

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

arr3 = Split(Join(arr1, ",") & "," & Join(arr2, ","), ",")
    
For i = 0 To UBound(arr3)
Debug.Print arr3(i)
Next i
    
End Sub  

显示结果如下：

 A
1
B
2
C
3
D
4  

一句代码搞定别人多句代码的事！

以上代码在Excel VBA中测试通过！