在VBA中，您可以使用两个二维数组并行结合。一种方法是使用循环将元素逐个添加到第三个二维数组中。
Dim arr1(1 To 3, 1 To 2) As Integer Dim arr2(1 To 4, 1 To 2) As Integer Dim arr3(1 To 7, 1 To 2) As Integer
arr1(1, 1) = 1: arr1(1, 2) = 2 arr1(2, 1) = 3: arr1(2, 2) = 4 arr1(3, 1) = 5: arr1(3, 2) = 6
arr2(1, 1) = 7: arr2(1, 2) = 8 arr2(2, 1) = 9: arr2(2, 2) = 10 arr2(3, 1) = 11: arr2(3, 2) = 12 arr2(4, 1) = 13: arr2(4, 2) = 14
For i = 1 To UBound(arr1, 1) arr3(i, 1) = arr1(i, 1) arr3(i, 2) = arr1(i, 2) Next i
For j = 1 To UBound(arr2, 1) arr3(j + UBound(arr1, 1), 1) = arr2(j, 1) arr3(j + UBound(arr1, 1), 2) = arr2(j, 2) Next j