用VBA Join函数连接两行多列 为什么不行

用VBA Join函数连接两行多列 为什么不行

Sub Join连接一列()
arr = [a1:a3]
MsgBox Join(Application.Transpose(arr), "-")
End Sub

'用join可以连接一列

Sub join连接一行多列()
arr = [D1:F1]
MsgBox Join(Application.Transpose(Application.Transpose(arr)), "-")
End Sub

'用join可以连接一行多列

Sub join连接两行多列()
arr = [D5:F6]
MsgBox Join(Application.Transpose(Application.Transpose(arr)), "-")
End Sub

'用VBA Join函数连接两行多列 为什么不行

'错在哪里如何改

join本来就只能连接一维的

join 函数，返回一个包含子字符串数组中的指定数量的字符串。这与 split方法的作用完全相反。 语法 join(list[,delimiter]) 1.list, 必需的参数。要加入包含属于子数组。 2.delimiter, 一个可选的参数。字符就是返回的字符串，用作分隔符。缺省的分隔符是空格。 例子 : 添加一个按钮，并添加以下功能 private sub constant_demo_click()   ' join using spaces   a = array("red","blue","yellow")   b = join(a)   msgbox("the value of b " & " is :"  & b)   ' join using $   b = join(a,"$")   msgbox("the join result after using delimiter is : " & b) end sub 当执行函数输出如下所示： the value of b is :red blue yellow the join result after using delimiter is : red$blue$yellow

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息