Function HB(rng, Optional ByVal fgf As String = "|") For Each cel In rng If cel <> "" Then p = p & fgf & cel Next HB = Mid(p, Len(fgf) + 1) End Function
如果题主版本不支持textjion函数,可用下面这个自定义的函数,打开表格-按ALT+F11-插入-模块-粘贴代码Function HB(rng, Optional ByVal fgf As String = "|") For Each cel In rng If cel <> "" Then p = p & fgf & cel Next HB = Mid(p, Len(fgf) + 1) End Function