Как отметить совпадения

[hloppel]

Есть простая табличка. Необходимо В столбце А найти и отметить совпадения.Возможно ли что бы проверка происходила сразу прои вводе значеий?
P.S
Ячейки в столбце А в текстовом формате

[Hugo121]

Сперва дубликаты выберите, их там 66:

Option Explicit

Sub FindDBL()
Dim x, y(), i As Long
Application.ScreenUpdating = False
x = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
ReDim y(1 To UBound(x), 1 To 1)
With New Collection
On Error Resume Next
For i = 1 To UBound(x, 1)
Err.Clear
.Add Item:=0, Key:=CStr(x(i, 1))
If Err <> 0 Then y(i, 1) = "дубль"
Next i
End With
[e2].Resize(UBound(x, 1)).Value = y
Application.ScreenUpdating = True
End Sub

Потом можно этот код подкрутить на проверку введённого значения, а можно и стандартную проверку ввода с СЧЁТЕСЛИ()/COUNTIF() использовать, но на такое количество я бы юзал макрос.

[EugeneS]

поиск дубликатов при вводе: http://office.microsoft.com/ru-ru/ex...in=EC001022986

[hloppel]

Сообщение от Hugo121

Сперва дубликаты выберите, их там 66:

Option Explicit

Sub FindDBL()
Dim x, y(), i As Long
Application.ScreenUpdating = False
x = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
ReDim y(1 To UBound(x), 1 To 1)
With New Collection
On Error Resume Next
For i = 1 To UBound(x, 1)
Err.Clear
.Add Item:=0, Key:=CStr(x(i, 1))
If Err <> 0 Then y(i, 1) = "дубль"
Next i
End With
[e2].Resize(UBound(x, 1)).Value = y
Application.ScreenUpdating = True
End Sub

Потом можно этот код подкрутить на проверку введённого значения, а можно и стандартную проверку ввода с СЧЁТЕСЛИ()/COUNTIF() использовать, но на такое количество я бы юзал макрос.

он тока не показывает что с чем совпало.....

[Hugo121]

Хотите знать, с каой строкой совпало? (ибо с чем - это и так понятно)
Тогда типа так можно:

If Err <> 0 Then y(i, 1) = "дубль со строкой " & i+1

[hloppel]

имелось ввиду что бы отмечалось, какая строка с какой совпадает. т.е ели номер 1235 в первой строке, и 12345 в строке 4565, что бы отметил и певую строку и 4565

[vikttur]

Выделить можно условным форматированием:

=СЧЁТЕСЛИ($A$2:$A$15;A2)>1

Но это тормоза.
Можно не выделять, а проверять при вводе. В столбце А меню Данные-Проверка-Параметры-Тип_данных-Другой, формула:

=НЕ(ЕЧИСЛО(ПОИСКПОЗ(A2;$A$1:A1;0)))

Если выше есть дубликат введенного, то орет сообщением.