vba - 将范围转换为逗号分隔的字符串

如果我有这样的专栏:

Col1
abc
def
ghi
jkl

如何将其转换为这样的字符串？:

"abc,def,ghi,jkl"

最佳答案

您可以使用Join()函数将一维数组的所有元素与定界符连接在一起。
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

关于vba - 将范围转换为逗号分隔的字符串，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/22349945/