轉換範圍逗號分隔的字符串

Question

如果我有這樣的一列：

Col1 
abc 
def 
ghi 
jkl 

我怎樣才能將其轉換爲一個字符串這樣？：

"abc,def,ghi,jkl" 

Answer 1

可以使用Join()功能用分隔符連接1維數組的所有元素。

Transpose()函數用於形成維數組（此方法適用於單列或單列）。

Sub Main() 
    Dim arr 
    arr = Join(Application.Transpose(Range("A2:A5").Value), ",") 
    MsgBox arr 
End Sub 

或作爲UDF

Public Function Merge(r As Range) As String 
    Merge = Join(Application.Transpose(r.Value), ",") 
End Function 

Answer 2

雙轉工作做字符串連接在單行值。謝謝@ user2140173和@brettdj！

debug.print join(Application.Transpose(Application.Transpose(Range("A1:G1").Value)),",")