vba 合并字符串数组

要将多个字符串数组合并为一个字符串数组，可以使用 VBA 中的 Join 函数。以下是示例代码：

Sub ConcatenateArrays()
    Dim arr1() As String, arr2() As String, arr3() As String
    Dim finalArr() As String, i As Integer, j As Integer, k As Integer
    
    '初始化三个字符串数组
    arr1 = Split("apple,orange,banana", ",")
    arr2 = Split("cat,dog,elephant", ",")
    arr3 = Split("red,green,blue", ",")
    
    '计算最终字符串数组的长度
    ReDim finalArr(UBound(arr1) + UBound(arr2) + UBound(arr3) + 3)
    
    '将三个数组合并为一个数组
    For i = 0 To UBound(arr1)
        finalArr(i) = arr1(i)
    Next i
    k = i
    For j = 0 To UBound(arr2)
        finalArr(k + j) = arr2(j)
    Next j
    k = k + j
    For j = 0 To UBound(arr3)
        finalArr(k + j) = arr3(j)
    Next j
    
    '将最终数组转换为字符串
    Dim finalStr As String
    finalStr = Join(finalArr, ",")
    
    '输出结果
    Debug.Print finalStr
End Sub

在这个示例代码中，我们首先初始化了三个字符串数组 arr1、arr2 和 arr3。然后，我们计算了最终字符串数组 finalArr 的长度，并将三个数组合并为一个数组。最后，我们使用 Join 函数将最终数组转换为字符串，并输出结果。