VBA建立函数实现区域单元格的合并

Function HB(rng, Optional ByVal fgf As String = ",")
'文本合并函数，有两个参数：
'第1参数为要合并字符的单元格区域或字符串数组，
'第2参数为可选参数：字符分隔符，将被添加到不为空的字符串末尾,忽略时缺省为“,”
p = ""
For Each cel In rng
If cel <> "" Then p = p & fgf & cel
Next
HB = Mid(p, Len(fgf) + 1)
End Function

把以上代码复制后，在EXCEL中按Alt+F11组合键打开VBA编辑器，在编辑器菜单“插入”中点“模块”，然后把复制的代码粘贴到“代码窗口”中，关闭VBA编辑器。接下来，在工作表中输入以下公式即可：
=HB(A1:N1," ")