excel算定义函数去重复合并区域多单元格中的内容到一个单元格中

按ALT+F11,然后在菜单栏选择 插入——模块，然下面的代码复制到右侧的模块中去，保存后，即可。在工作表中用

=合并（要合并的单元格所在的区域，“分隔符”）

完成合并操作。  这个函数是先优先同一行的数据来合并的。并且如果合并区域中有重复值，只对重复值合并一次。

1. Function 合并(b As Range, sr As String)
   
2. Dim d
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. For Each c In b
   
5.    If c <> "" Then d(c.Value) = ""
   
6. Next
   
7. 合并 = Join(d.keys, sr)
   
8. Set d = Nothing
   
9. End Function

复制代码