VBA -获取数组中的所有值作为后续字符串

Sub GetArrayValuesAsString()
    Dim arr() As Variant
    Dim result As String
    Dim i As Integer
    
    ' 假设数组已经被赋值
    arr = Array("Value1", "Value2", "Value3")
    
    ' 初始化结果字符串
    result = ""
    
    ' 遍历数组并连接每个值
    For i = LBound(arr) To UBound(arr)
        result = result & arr(i)
        
        ' 如果不是最后一个值，则添加分隔符（例如逗号）
        If i < UBound(arr) Then
            result = result & ","
        End If
    Next i
    
    ' 输出结果字符串
    MsgBox result
End Sub