Join 函数用指定的分隔符,将一个一维数据中的元素连接成一个字符串,类似 python 中的 join 方法。
示例代码如下:
Sub join_test()
Dim arr As Variant, txt As String '声明变量
arr = Array(Array("一", "两", "三四", ""), Array("五", "六", "七八", "")) '生成二维数组
txt = Join(arr(1), "片") & Chr(13) _
& Join(arr(2), "片") '用 join 函数生成两行文本值
MsgBox txt
End Sub
运行代码,弹出的消息框如下
最新评论