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格式。