Проверка значений в Excel на уникальность.

[jetcom]

Привет всем!
Кроме как перебором по строкам\столбцам и потом при помощи Find искать себе подобных, больше ничего на ум чего-то не лезет...
Мож. кто подскажет что-нить более быстрое и интересное?
Например, For each никак нельзя тут применить?
Или еще как-нибудь КРАСИВО!!!

[RayShade]

Можно поджклчаться к XLS через ADO и SQL запросом делать выборку а потом анализировать Это бесспорнобудет красиво, но вот насчет того что быстрее и правильнее, не думаю. А так предлоденные тобой решения по моему исчерпывают все цивильные возможности.

[Vitaly1]

Мы это по мойму уже обсуждали на другом форуме. Each можно, например поиск во всем столбце D:
For Each r In Range("d:d")
If r.Text = "Что ищим" Then
MsgBox r.Address
Exit For
End If
Next r

Будет быстрее, чем перебирать индексы строк, но медленей чем функция Find в VBA

[dummy]

Можно использовать функцию листа countif, по-русски счетесли.
Допустим, список находится в $A$1:$A$20, тогда если счетесли($A$1:$A$20,A1)=1, то значение ячейки A1 встречается в списке 1 раз, идея понятна?
Можно завести проверку уникальности без макросов, c использованием проверки данных, это в меню данные/проверка данных, тип - другой, формула - "=счетесли($A$1:$A$20,A1)<2".

[jetcom]

Пару-тройку дней сидел без инета, только дорвался, спешу всех поблагодарить за ответы! Но, насчет идей dummy, это, скорее всего не подойдет, т.к. помимо подсчета этих повторений, необходимо знать адреса этих негодников!!! (чтобы сделать их тоже уникальными). Смысл в том, чтобы присвоить код товару, и при случайном совпадении оного, сразу это выявить и исправить...

[dummy]

Раз тебе нужны еще и адреса ячеек с такими же значениями, то ничего быстрее и проще метода cells.find ты не найдешь IMHO.