Join可以将数组以指定字符分开,连成一个字符串。如:
Sub Example() Dim arr(1 To 10), i As Integer, txt As String For i = 1 To 10 '给数组赋值 arr(i) = i Next i txt = Join(arr, ",") '将arr数组的元素连成字符串,用逗号作分隔符 MsgBox txt End Sub
Join的第二参数,即分隔符可以不指定,在不指定时,默认为以空格作分隔符。
运行结果: