使用vba数组进行串联

Sub ConcatenateArrays()
    Dim arr1() As Variant
    Dim arr2() As Variant
    Dim combinedArr() As Variant
    Dim i As Long, j As Long
    
    ' 初始化数组1
    arr1 = Array("A", "B", "C")
    
    ' 初始化数组2
    arr2 = Array("D", "E", "F")
    
    ' 计算新数组的大小
    ReDim combinedArr(1 To UBound(arr1) + UBound(arr2) + 1)
    
    ' 将数组1的元素添加到新数组中
    For i = 1 To UBound(arr1) + 1
        combinedArr(i) = arr1(i - 1)
    Next i
    
    ' 将数组2的元素添加到新数组中
    For j = 1 To UBound(arr2) + 1
        combinedArr(i + j - 1) = arr2(j - 1)
    Next j
    
    ' 输出结果
    For i = 1 To UBound(combinedArr)
        Debug.Print combinedArr(i)
    Next i
End Sub