vba中怎么拼接数组

在VBA（Visual Basic for Applications）中，如果你想要将数组的内容拼接成一个字符串，可以使用`Join()`函数或者通过循环逐个添加元素。以下是两种常见的方法：

1. 使用 `Join()` 函数：

Sub JoinArrayToString()
    Dim arr(1 To 3) As String ' 创建一个包含几个元素的数组
    arr(1) = "元素1"
    arr(2) = "元素2"
    arr(3) = "元素3"

    Dim strResult As String
    strResult = Join(arr, ", ") ' 使用逗号和空格作为分隔符
    Debug.Print strResult ' 输出结果：“元素1, 元素2, 元素3”
End Sub

2. 循环拼接：

Sub ArrayToSentence()
    Dim arr(1 To 3) As String
    arr(1) = "元素1"
    arr(2) = "元素2"
    arr(3) = "元素3"

    Dim strResult As String
    For i = LBound(arr) To UBound(arr)
        If i > 0 Then
            strResult = strResult & " " & arr(i) ' 如果不是第一个元素，则加上空格
        Else
            strResult = arr(i) ' 第一个元素直接添加
        End If
    Next i

    Debug.Print strResult
End Sub

在这两个例子中，`strResult` 就是你拼接后的字符串。