【excel求助】有爱的吧友们

Function celljoin(区域 As Range, Optional 合并符 As String = "-")
arr = Application.Transpose(Application.Transpose(区域))
celljoin = Join(arr, 合并符)
End Function

“朴素”的公式：
=A2&IF(B2="","","-"&B2)&IF(C2="","","-"&C2)&IF(D2="","","-"&D2)&IF(E2="","","-"&E2)

串联单元格的自定义函数 - Excel VBA二次开发 - 共享社区 - 有才能,有合作,有分享,才有更好的未来! http://www.gxsq.com/forum.php?mod=viewthread&tid=23&highlight=%B4%AE%C1%AA

我用的也是5楼的方法，最后再用替换或者分列处理下就行