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

sl261011

SEE

pcfearless

新手上路說一個a列名稱，不重復(fù)的放b列
在b2輸入index(a:a,match(,countif(b$1:b1,a$1:a$9999),))
或者
數(shù)據(jù)在b7處INDEX($B$7B$20,SMALL(IF(ROW($B$7B$20)-6=MATCH($B$7B$20,$B$7:$B$20,0),ROW($B$7:$B$20)-6,"0"),ROW(B1)))

pcfearless

為 ：  $

lxzxmpx

學(xué)習(xí)學(xué)習(xí)

2001927f

ctrl+f將“查找和替換”調(diào)出來，在“替換（p）”中的“查找內(nèi)容（N）”中輸入重復(fù)的內(nèi)容之后先按下“查找全部（I）”后找到你要替換重復(fù)部分，然后點擊全部替換就可以了，若要是將替換的部分換成空白的，你在“替換為（E）”中不輸入內(nèi)容就可以了啊。
個人認為我的辦法最簡單！

dubutianxia2012

3樓的方法不錯
很適合我
簡單實用

joyark

有道理，用數(shù)據(jù)透視表操作簡便快捷

yh0825

以上這些都是一列重復(fù)剔除的方法，但實際工作中，往往是有兩列數(shù)據(jù)（或兩列以上）都重復(fù)，其它列不重復(fù)，然后根據(jù)需要進行剔除的。
比如附件的例子（從其他網(wǎng)上轉(zhuǎn)來的，VBA方法吧，非我原創(chuàng)，為了便于理解，數(shù)據(jù)稍微改了下）

yh0825

但也有局限，因為只能用max或min，比如時間這一列，我就想選重復(fù)項的第一個時間，并非max，也不是min值，那如何實現(xiàn)呀，我是菜鳥，不知各位老師有辦法嗎？

xcharmer

我也來一段代碼，大家見笑了！
是VBA結(jié)合代碼實現(xiàn)刪除重復(fù)的

1. Sub 刪除重復(fù)()
   
2.   Dim i, j
   
3.     i = 1
   
4.     Do While Trim(Cells(i, 1)) <> ""
   
5.     '進行單循環(huán)，和老師講解的方法不同
   
6.    
   
7.       Cells(i, 2) = Application.WorksheetFunction.CountIf(Range("a:a"), Range("a" & i))
   
8.       '添加一個輔助列，用countif的函數(shù)進行重復(fù)數(shù)量的統(tǒng)計
   
9.       
   
10.       If Cells(i, 2) > 1 Then
    
11.         '如果輔助列的數(shù)值大于1，則代表有重復(fù)數(shù)據(jù)，那么刪除第一列對應(yīng)的數(shù)據(jù)
    
12.         
    
13.       Cells(i, 1).Delete Shift:=xlShiftUp
    
14.       Cells(i, 2).Delete Shift:=xlShiftUp
    
15.       i = i - 1
    
16.         '對I的初始恢復(fù)
    
17.         
    
18.       End If
    
19.     i = i + 1
    
20.     Loop
    
21.    
    
22.     Range("b:b").Delete Shift:=xlShiftUp
    
23.     '將輔助列清空
    
24. End Sub
    

復(fù)制代碼