Поиск повторяющихся значений

[SAS888]

StasSv, я так понял, что автор темы не позволяет использовать поле рабочего листа. Значения можно получить разными способами, но куда их девать и где хранить?

[Flangini]

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

Вообще, поиск проводится, наверное, с какой-то целью. Может после поиска не выводить какое-либо сообщение, а продолжить макрос и сделать все, что нужно?

Цель проверить не занёс ли кто-то одного и того же человека (проверка анкеты) чтобы каждый был опрошен 1 раз. Так что в случаи совпадения придётся искать строчки и проверять один и тот же человек записан два или более раз или это однофамильцы одноимёнцы и тд.
А не хочу использовать условное фарматирование, т.к.
- файл будет обрабатывать человек, который с Excelem весьма поверхностно общается.
- файл каждый месяц новый.
Поэтому решил написать макросы, их выделил, копирнул, вставил в новый файл и всё и целый месяц тебя никто не трогает

[SAS888]

Так может быть при совпадении ряда Ваших условий

однофамильцы одноимёнцы и тд.

просто удалять дубли?

[Flangini]

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

Так может быть при совпадении ряда Ваших условий

просто удалять дубли?

Люди со всей страны и с СНГ очень возможны однофамильцы и одноимёнцы и одноотчевцы Так что без вмешательства не обойтись

[SAS888]

Вам виднее, но вмешавшись, Вы все равно будете их отфильтровывать по каким-то признакам?

[Flangini]

А веди верно!!!
Вот сейчас задумался и тут же нашёл однозначный критерий отфильтровки
Тагда нужно ещё дописать цикл проверяющий совпавшие строчки по другому столбцу, и если они совпали тогда одну из строчек удалять
А не подскажите функцию, которая может удалить всю строку целиком?

[SAS888]

Удаление строки по ее номеру: Rows(r).Delete, где r - номер строки.
Удаление строки, которой принадлежит ячейка: Range("D9").EntireRow.Delete.
Только не нужно дописывать еще один цикл. За один проход можно проверять все необходимые условия и сразу удалять лишние строки. Будет существенно проще и быстрее, чем формировать массив для запоминания этих строк, а потом распаковывать и формировать сообщение.

P.S. Совет:
Если Вы будете писать макрос, удаляющий строки, последовательным перебором ячеек, то, для корректной работы, строки (ячейки) нужно перебирать снизу вверх. Тогда, при удалении строки, в цикле ничего не нарушится. Но эффективнее все же использовать методы Find и FindNext.

[jungo]

Привет!

У меня есть прикольный модуль, каторый делает это Excel+ но на иврите.
Присоеденил картинку как он это делает. Если нужно могу прислать или для примера/переделки или для пользавания.
Я пользуюсь всё время именно этой опцией - СУПЕР!

Пэ.Сэ. У него тоже есть предел проверки, он тебе об этом "крикнет" если нарушишь.

[StasSv]

тоесть если я правильно понял надо найти все уникальные значения?

[StasSv]

вот файл который отбирает уникальные значения
моно просто через расширенный фильтр (собственно через него и записывал)