vba 一维整数数组合并

在 VBA 中，可以使用数组的 `Redim` 函数来扩展或缩小数组的大小，从而将一个数组合并到另一个数组中。以下是一个将两个整数数组合并的示例：

Sub MergeArrays()
    Dim arr1() As Integer
    Dim arr2() As Integer
    Dim merged() As Integer
    Dim i As Integer
    Dim j As Integer
    
    ' 初始化数组1
    ReDim arr1(0 To 2)
    arr1(0) = 1
    arr1(1) = 2
    arr1(2) = 3
    
    ' 初始化数组2
    ReDim arr2(0 To 3)
    arr2(0) = 4
    arr2(1) = 5
    arr2(2) = 6
    arr2(3) = 7
    
    ' 合并数组1和数组2
    ReDim merged(0 To UBound(arr1) + UBound(arr2) + 1)
    For i = 0 To UBound(arr1)
        merged(i) = arr1(i)
    Next i
    For j = 0 To UBound(arr2)
        merged(i + j) = arr2(j)
    Next j
    
    ' 输出合并后的数组
    For i = 0 To UBound(merged)
        Debug.Print merged(i)
    Next i
End Sub

在这个示例中，我们先使用 `Redim` 函数初始化了两个数组 `arr1` 和 `arr2`，然后通过计算它们的长度，创建了一个足够大的数组 `merged` 来存储它们的合并结果。最后，我们使用 `For` 循环将 `arr1` 和 `arr2` 中的元素逐个复制到 `merged` 数组中，并输出合并后的数组。

请注意，这个示例中的数组都是一维数组。如果要合并多维数组，需要使用嵌套循环或递归函数来遍历数组中的所有元素。