如何在电子表格中的特定字段中查找重复值?

时间:2010-01-31 13:36:46

标签: excel spreadsheet duplicate-data

您好我有一个excel文件,我想在某个字段中查找重复值,如电子邮件帐户列表。就像让它们被格式化为相同或类似的东西 你知道怎么做吗?

2 个答案:

答案 0 :(得分:0)

您可以使用包含公式的其他列来查找列中的重复项(假设您正在检查列QCOUNTIF(Q:Q, Q2)

然后,您可以使用条件格式来突出显示新列的值为> 1的行。

答案 1 :(得分:0)

使用Excel版本2007时,可以使用构建的功能删除重复。

该命令位于选项卡Data,一组Data Tools;
icon删除重复项。


或者使用宏。通过标记标记重复值,例如将X标记为相邻列。 接下来,它们可以由自动过滤器使用,以过滤掉标记的行和键盘快捷键 CTRL + - (减号键)重复项可以立即删除。

Option Explicit
'crea by pc-prog.eu

Sub SelectRowOfDupli_A()
Dim x As Variant, xRng As Range, xR As Range
Dim xMltRow As String, i As Integer, xObl As String
Set xRng = Selection
x = "xxxxxx"

On Error GoTo xErr
xObl = "B"
xObl = InputBox("Enter COLUMN where by 'X' sign will be marked duplicate entries " & _
"of selected cells:", "RANGE", xObl)

If xObl = "" Then
MsgBox "Column name must be entered!", vbCritical, "CHYBA"
Else
For Each xR In xRng
If Trim(CStr(xR.Value)) = x Then
Range(xObl & CStr(xR.Row)).Value = "X"
i = i + 1
Else
x = Trim(CStr(xR.Value)) 'xR.Value
End If
Next xR
If xMltRow <> "" Then
Range(xMltRow).Select
End If
MsgBox "Done. " & CStr(i) & " duplicates."
End If
Exit Sub
xErr:
MsgBox Err.Description, vbCritical, "FINISHED WITH ERRORS:"
End Sub