vba 数组转成字符串

在VBA（Visual Basic for Applications）中，将数组转换为字符串通常可以通过循环遍历数组元素并将它们连接起来完成。这里是一个基本的方法：

Function ArrayToString(arr() As Variant) As String
    Dim strResult As String
    Dim i As Long
    
    ' 初始化结果字符串
    strResult = ""
    
    ' 遍历数组
    For i = LBound(arr) To UBound(arr)
        ' 将每个元素添加到结果字符串，如果元素不是字符串类型，可能需要先转换
        If TypeName(arr(i)) <> "String" Then
            arr(i) = CStr(arr(i)) ' 转换为字符串类型
        End If
        strResult = strResult & arr(i) ' 连接元素
        ' 如果不是最后一个元素，添加分隔符（如逗号或空格）
        If i < UBound(arr) Then
            strResult = strResult & ", "
        End If
    Next i
    
    ArrayToString = strResult
End Function

你可以通过调用这个`ArrayToString`函数并传入你的数组来得到字符串形式的结果。例如：

Dim myArray(1 to 5) As Integer
myArray(1) = 1
myArray(2) = 2
' ... (填充更多元素)

Dim result As String
result = ArrayToString(myArray)
Debug.Print result ' 输出：1, 2, ...