VBA JOIN函数详解

上一篇博客讲解了SPLIT函数的用法，大家可以移步这里。

VBA SPLIT函数详解

SPLIT函数实现了字符串拆分，相应的逆运算可以使用JOIN函数，其语法格式如下。

Join(sourcearray[, delimiter])

参数	含义
sourcearray	必选参数，包含被连接子字符串的一维数组
delimiter	可选参数，在返回字符串中用于分隔子字符串的字符

参数delimiter与SPLIT函数中该参数的用法相同，省略时使用空格做为分隔符。

如下的示例代码实现了将字符串数组arrString组合为一个字符串。

Sub JoinDemo1()
    Dim arrString
    Dim strString As String
    arrString = Array("Good", "good", "study,", "day", "day", "up")
    strString = VBA.Join(arrString)
    Debug.Print strString
End Sub

输出结果如下。

Good good study, day day up

有时需要在字符串的两端都使用分隔符，即

|Good|good|study|day|day|up|

示例代码如下：

Sub JoinDemo3()
    Dim arrString
    Dim strString As String
    arrString = Array("Good", "good", "study,", "day", "day", "up")
    strString = "|" & VBA.Join(arrString, "|") & "|"
    Debug.Print strString
End Sub

其实代码可以进行简化，JoinDemo3过程中第5行代码不需要那么复杂。代码可以简化如下。

Sub JoinDemo4()
    Dim arrString
    Dim strString As String
    arrString = Array("", "Good", "good", "study,", "day", "day", "up", "")
    strString = VBA.Join(arrString, "|")
    Debug.Print strString
End Sub

其中的技巧在于，第4行代码中，在数组中第一个和最后一个元素增加了空字符，第5行代码组合字符串时，就可以实现字符串两段添加分隔符的效果。