嘻皮客娱乐学习网
标题:
excel算定义函数去重复合并区域多单元格中的内容到一个单元格中
[打印本页]
作者:
xipick
时间:
2016-9-6 08:44
标题:
excel算定义函数去重复合并区域多单元格中的内容到一个单元格中
按ALT+F11,然后在菜单栏选择 插入——模块,然下面的代码复制到右侧的模块中去,保存后,即可。在工作表中用
=合并(要合并的单元格所在的区域,“分隔符”)
完成合并操作。 这个函数是先优先同一行的数据来合并的。并且如果合并区域中有重复值,只对重复值合并一次。
Function 合并(b As Range, sr As String)
Dim d
Set d = CreateObject("Scripting.Dictionary")
For Each c In b
If c <> "" Then d(c.Value) = ""
Next
合并 = Join(d.keys, sr)
Set d = Nothing
End Function
复制代码
欢迎光临 嘻皮客娱乐学习网 (http://www.xipick.com/)
Powered by Discuz! X3.3