1、ALT+F11打开VBE编辑器;
2、插入>>模块,粘贴以下代码:Function textjoin(合并符, tf, texts)Application.Volatile TrueOn Error GoTo xxxDim arr, a As String, pp As Stringpp = Join(WorksheetFunction.Transpose(texts), "-")arr = WorksheetFunction.Transpose(texts)GoTo yyyxxx:arr = WorksheetFunction.Transpose(WorksheetFunction.Transpose(texts))yyy:If tf = 1 ThenFor i = 1 To UBound(arr)If arr(i) = "" Then arr(i) = "#$%"Nextarr = Filter(arr, "#$%", False)End Iftextjoin = Join(arr, 合并符)End Function
3、保存文件为.xlsm格式。