vba中怎么将多个拼接数组拼接成一个

在VBA（Visual Basic for Applications）中，如果你想要将多个一维数组合并成一个数组，你可以使用`Redim Preserve`语句或者创建一个新的二维数组。以下是两种常见的方法：

1. 使用`Redim Preserve`:

Sub MergeArrays()
    Dim arr1() As Variant '假设这是第一个数组
    ReDim arr1(1 To 5, 1 To 3) '初始化第一个数组

    Dim arr2() As Variant '假设这是第二个数组
    ReDim arr2(1 To 3, 1 To 4) '初始化第二个数组

    Dim mergedArray(1 To UBound(arr1, 1) + UBound(arr2, 1), 1 To Max(UBound(arr1, 2), UBound(arr2, 2))) As Variant
    'UBound函数返回数组的最大下标

    '将arr1复制到mergedArray
    mergedArray = arr1
    '这里不需要Preserve，因为还没有改变mergedArray的大小

    '将arr2追加到mergedArray
    Redim Preserve mergedArray(1 To mergedArray(1 To UBound(arr1, 1), 1) + UBound(arr2, 1), 1 To mergedArray(LBound(arr1, 2), 1) + UBound(arr2, 2))
    mergedArray(LBound(arr2, 1) + LBound(arr1, 1), LBound(arr2, 2)) To UBound(arr2, 1) + UBound(arr1, 1), LBound(arr2, 2) To UBound(arr2, 2)) = arr2
End Sub

2. 创建新二维数组：

Sub MergeArrays2()
    '... (代码同上) ...
    
    '另一种方法是直接创建新的大数组
    Dim finalArray(1 To UBound(arr1, 1) + UBound(arr2, 1), 1 To UBound(arr1, 2) + UBound(arr2, 2)) As Variant
    
    '将arr1和arr2的数据分别添加到finalArray的不同部分
    finalArray(1 to UBound(arr1), 1 to UBound(arr1, 2)) = arr1
    finalArray(LBound(arr2) + UBound(arr1), LBound(arr2) to UBound(arr2, 2)) = arr2
End Sub