在一個(gè)excel表格中，在沒有經(jīng)過辦公人員處理下經(jīng)常會(huì)出現(xiàn)一個(gè)或者多個(gè)重復(fù)值，辦公人員需要進(jìn)行整理和挑選重復(fù)值刪除，那么有些新人不懂刪除重復(fù)值怎么辦？不用著急，下面小編會(huì)給大家普及下Excel中查找和刪除重復(fù)值的教程。
㈠查找重復(fù)值
方法一：輔助列+公式法
在A列的右側(cè)插入輔助列，在輔助列中輸入公式來確定區(qū)域中的重復(fù)值。
1.在B2單元格中輸入公式
=IF（SUMPRODUCT（–（A2=$A$2：$A$21））》1，“重復(fù)”，“”）
或：
=IF（COUNTIF（$A$2：$A$21，A2）》1，“重復(fù)”，“”）
然后雙擊B2單元格右下角的填充柄，公式將自動(dòng)填充到B3:B21區(qū)域。這時(shí)可以看到A列中的重復(fù)值對應(yīng)在B列中都顯示為“重復(fù)”。
方法二：條件格式法
Excel 2003：
1.選擇A2:A21區(qū)域，單擊菜單“格式→條件格式”。
2.彈出“條件格式”對話框，在對話框左側(cè)的下拉列表中選擇“公式”，在右側(cè)的文本框中輸入公式：
=SUMPRODUCT（–（A2=$A$2：$A$21））》1
或：
=COUNTIF（$A$2：$A$21，A2）》1
單擊“格式”按鈕，在彈出的“單元格格式”對話框中選擇“圖案”選項(xiàng)卡，選擇某種顏色，單擊“確定”。
3.單擊“確定”，Excel將包含重復(fù)值的單元格用所選顏色標(biāo)記出來。
Excel 2007：
選擇區(qū)域A2:A21，然后單擊功能區(qū)“開始→條件格式→突出顯示單元格規(guī)則→重復(fù)值”，在“重復(fù)值”對話框中單擊“確定”。
可以看到所有重復(fù)的姓名都用淺紅色標(biāo)記出來。
?、鎰h除重復(fù)值
方法一：利用高級(jí)篩選
1.單擊菜單“數(shù)據(jù)→篩選→高級(jí)篩選”。
2.在“高級(jí)篩選”對話框中，選擇“將篩選結(jié)果復(fù)制到其他位置”，并且勾選“選擇不重復(fù)的記錄”，單擊“列表區(qū)域”文本框右側(cè)的按鈕，選擇區(qū)域A2：A21，表示需要篩選的數(shù)據(jù)區(qū)為A2：A21，同樣，將“復(fù)制到”區(qū)域設(shè)置為$C$2，如圖。
3.單擊“確定”。Excel將把篩選后的結(jié)果放置到C2：C18中，去掉了其中的3個(gè)重復(fù)值。
方法二：利用數(shù)據(jù)透視表
1.選擇A1：A21區(qū)域中的任意單元格，單擊菜單“數(shù)據(jù)→數(shù)據(jù)透視表和數(shù)據(jù)透視圖”，然后直接單擊“下一步”按鈕，在3步驟之2中可以看到“選定區(qū)域” 已自動(dòng)設(shè)置為“Sheet1！$A$1：$A$21”，再次單擊“下一步按鈕”，在3步驟之3中，選擇“現(xiàn)有工作表”，區(qū)域選擇C2單元格，然后單擊“完 成”按鈕。
2.在“數(shù)據(jù)透視表字段列表”中，選擇“神雕人物名單”，用鼠標(biāo)左鍵將其拖至行字段區(qū)域，或直接單擊“添加到”按鈕。
3.可以看到Excel已自動(dòng)將重復(fù)值去掉，并拼音順序?qū)⒚麊闻藕昧恕?/p>
方法三：用Excel 2007中的“刪除重復(fù)項(xiàng)”功能
選擇A2:A21區(qū)域，單擊功能區(qū)“數(shù)據(jù)→刪除重復(fù)項(xiàng)”，在“刪除重復(fù)項(xiàng)”對話框中單擊“確定”。
Excel 2007自動(dòng)將重復(fù)值刪除，并給出提示。
方法四：輔助列+合并計(jì)算
利用Excel中的合并計(jì)算功能刪除重復(fù)值，該方法不僅適用于一列數(shù)據(jù)，還能合并不同工作表中的多個(gè)單列數(shù)據(jù)并去掉合并后的重復(fù)項(xiàng)。以Excel 2003為例介紹如下：
1.由于數(shù)據(jù)在A列，以其右側(cè)的B列為輔助列。在B列對應(yīng)A列數(shù)據(jù)區(qū)域中的任一單元格中輸入一個(gè)數(shù)值，以便Excel進(jìn)行合并計(jì)算。如在B8輸入一個(gè)數(shù)值“2”。
2.本例將刪除重復(fù)值的數(shù)據(jù)將放置在D列，選擇D2單元格。單擊菜單“數(shù)據(jù)→合并計(jì)算”，彈出“合并計(jì)算”對話框。單擊“引用位置”下的文本框，選擇 A2:B21區(qū)域，單擊“添加”按鈕，將該區(qū)域添加到“所有引用位置”下方的區(qū)域中。在“標(biāo)簽位置”下勾選“最左列”，“函數(shù)”下方的選項(xiàng)保持默認(rèn)的“求 和”即可。
如果要合并多列去重復(fù)，繼續(xù)選擇其他列并單擊“添加”按鈕。
3.單擊“確定”，可以看到Excel刪除A列中的重復(fù)值并將數(shù)據(jù)放置到D2:D18區(qū)域。
方法五：用VBA
這兩段VBA代碼分別運(yùn)用了Scripting.Dictionary和Collection對象，并利用了其元素具有唯一性的特點(diǎn)。
1.用Scripting.Dictionary對象：
Sub Uniquedata（）
Dim Cel As Range， Res
‘創(chuàng)建對象
Set d = CreateObject（“Scripting.Dictionary”）
’遍歷數(shù)據(jù)區(qū)域的單元格
For Each Cel In Range（“A2:A21”）
‘判斷單元格內(nèi)容是否為空
If Cel 《》 “” Then
’如果字典對象中不包含同樣的對象就添加該對象
If Not d.exists（Cel.Value） Then d.Add Cel.Value， Cel.Value
End If
Next
Res = d.Items
‘將對象中的元素寫入工作表
For i = 0 To d.Count – 1
Cells（i + 2， 3） = Res（i）
Next i
End Sub
2.用Collection對象：
Sub Uniquedata1（）
Dim myList As New Collection， Cel As Range， itm， i As Integer
On Error Resume Next
’遍歷數(shù)據(jù)區(qū)域的單元格
For Each Cel In Range（“A2:A21”）
‘判斷單元格內(nèi)容是否為空
If Cel 《》 “” Then myList.Add Cel.Value， CStr（Cel.Value）
Next
On Error GoTo 0
i = 1
’將非重復(fù)值寫入工作表
For Each itm In myList
Cells（i + 1， 3） = itm
i = i + 1
Next
End Sub
以上內(nèi)容便是Excel中查找和刪除重復(fù)值的教程了，大家學(xué)會(huì)了嗎？可以關(guān)注教程之家，里面有更多精彩的教程哦。
