求帮助，唯一值

无穷大

请高手指教下：

                 我在单元格中有这样一排数字：    ,4,23,1,76,186,4,5,6,4,1,156,111,
                 我想得到一个这样的结果      ：    ,4,23,1,76,186,5,6,156,111,
                 附件是具体的表格

ctp_119

高级筛选即可。如果是2010版本，可以直接去重复即可。

ctp_119

看了你的附件，这样的数据，可以先分列，转置，去重复，再转置，连接即可。
这样的数据好烦呀！

无穷大

ctp_119 发表于 2014-6-18 09:33
高级筛选即可。如果是2010版本，可以直接去重复即可。

不对...您可以看下附件....

℡Soul

1. Function CQ(rng As Range)
   
2. Set d = CreateObject("scripting.dictionary")
   
3. ARR = Split(rng, ",")
   
4. On Error Resume Next
   
5.     For I = LBound(ARR) To UBound(ARR)
   
6.         d.Add ARR(I), ""
   
7.     Next
   
8.     brr = d.keys
   
9. CQ = Join(brr, ",")
   
10. End Function
    

复制代码

自定义函数

无穷大

℡Soul 发表于 2014-6-18 13:39
自定义函数

非常感谢，非常有用
大师，请问下，是否能解释下这个代码，我对VBA不熟悉

℡Soul

无穷大 发表于 2014-6-19 15:52
非常感谢，非常有用
大师，请问下，是否能解释下这个代码，我对VBA不熟悉

其实就是用字典 关键字唯一的特性 去重

麦克斯佩恩

虽然看不懂，学习了