關(guān)于剔除重復(fù)

FirstBoy

高手云集!!  學(xué)習(xí)了

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
  ...

謝謝師傅
學(xué)習(xí)一下[:17]

tanhong

原帖由 pureshadow 于 2008-3-27 10:53 發(fā)表

謝謝師傅
學(xué)習(xí)一下[:17]

小妖的師傅出馬了,學(xué)習(xí)........

歡歡

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ù)強(qiáng)哦，難怪小妖常提及。學(xué)習(xí)了
能否修改一下，可能是你的符號(hào)變成了表情動(dòng)畫(huà)了。

pureshadow

版版都可以自己動(dòng)爪改的..........[:45]

pureshadow

爪MM也開(kāi)始用E2007版了[:50]

tygg

客觀上說(shuō),幾種方法都不錯(cuò),第一、第二種不用VBA方便了不會(huì)VBA的人

pureshadow

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

gvntw

我來(lái)點(diǎn)：
基礎(chǔ)操作法，沒(méi)有比高級(jí)篩選不重復(fù)值更好的方法了，我就不寫(xiě)了，函數(shù)和VBA方法各兩種。