自定义模拟textjoin函数

1、ALT+F11打开VBE编辑器；

2、插入>>模块,粘贴以下代码：

Function textjoin(合并符, tf, texts)

Application.Volatile True
On Error GoTo xxx
Dim arr, a As String, pp As String
pp = Join(WorksheetFunction.Transpose(texts), "-")
arr = WorksheetFunction.Transpose(texts)
GoTo yyy
xxx:
arr = WorksheetFunction.Transpose(WorksheetFunction.Transpose(texts))
yyy:
If tf = 1 Then
For i = 1 To UBound(arr)
If arr(i) = "" Then arr(i) = "#$%"
Next
arr = Filter(arr, "#$%", False)
End If
textjoin = Join(arr, 合并符)
End Function

3、保存文件为.xlsm格式。