关于剔除重复

FirstBoy

高手云集!!  学习了

pureshadow

原帖由 Jonathan.K 于 2008-3-27 10:03 发表
Sub test()
    Dim rngData As Variant
    Dim i As Long
    Dim oDic As Object
   
    Application.ScreenUpdating = False
    Set oDic = CreateObject("Scripting.Dictionary")
    With Sheet1
  ...

谢谢师傅
学习一下[:17]

tanhong

原帖由 pureshadow 于 2008-3-27 10:53 发表

谢谢师傅
学习一下[:17]

小妖的师傅出马了,学习........

欢欢

A2单元格数组函数公式：=IF(SUM(1/COUNTIF($A$2: $A$8,$A$2: $A$8))>=ROW(1:1),OFFSET($A$2,SMALL(IF(MATCH($A$2: $A$8,$A$2: $A$8,0)=ROW($A$2: $A$8)-1,ROW($A$2: $A$8)-1),ROW(1:1)),0,1,1),"")      下拉即可

[ 本帖最后由 pureshadow 于 2008-3-27 19:48 编辑 ]

tanhong

原帖由 欢欢 于 2008-3-27 17:28 发表
A2单元格数组函数公式：=IF(SUM(1/COUNTIF($A$2A$8,$A$2A$8))>=ROW(1:1),OFFSET($A$2,SMALL(IF(MATCH($A$2A$8,$A$2:$A$8,0)=ROW($A$2:$A$8)-1,ROW($A$2:$A$8)-1),ROW(1:1)),0,1,1),"")      下拉即可

欢欢的函数强哦，难怪小妖常提及。学习了
能否修改一下，可能是你的符号变成了表情动画了。

pureshadow

版版都可以自己动爪改的..........[:45]

pureshadow

爪MM也开始用E2007版了[:50]

tygg

客观上说,几种方法都不错,第一、第二种不用VBA方便了不会VBA的人

pureshadow

到我的Q空间去看吧,有剔除重复系列的......

gvntw

我来点：
基础操作法，没有比高级筛选不重复值更好的方法了，我就不写了，函数和VBA方法各两种。