關(guān)于剔除重復

FirstBoy

高手云集!!  學習了

pureshadow

原帖由 Jonathan.K 于 2008-3-27 10:03 發(fā)表
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 發(fā)表

謝謝師傅
學習一下[:17]

小妖的師傅出馬了,學習........

歡歡

A2單元格數(shù)組函數(shù)公式：=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 發(fā)表
A2單元格數(shù)組函數(shù)公式：=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),"")      下拉即可

歡歡的函數(shù)強哦，難怪小妖常提及。學習了
能否修改一下，可能是你的符號變成了表情動畫了。

pureshadow

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

pureshadow

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

tygg

客觀上說,幾種方法都不錯,第一、第二種不用VBA方便了不會VBA的人

pureshadow

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

gvntw

我來點：
基礎(chǔ)操作法，沒有比高級篩選不重復值更好的方法了，我就不寫了，函數(shù)和VBA方法各兩種。