2010-01-31 1 views
1

Здравствуйте, у меня есть файл excel, и я хочу искать повторяющиеся значения в определенном поле, например список учетных записей электронной почты. Как заставить их форматировать то же самое или что-то в этом роде.
Вы знаете, как это сделать?Как я могу искать повторяющиеся значения в определенном поле в электронной таблице?

+1

Это, вероятно, относится к SuperUser, но я не уверен. – SLaks

ответ

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 
0

Вы можете найти дубликаты в столбце, используя другой столбец, содержащий формулу (при условии, что вы проверяете столбец Q) COUNTIF(Q:Q, Q2).

Вы можете использовать условное форматирование для выделения строк, где значение нового столбца равно > 1.

Смежные вопросы