Удалить строку листа Excel при выполнении условия

[Gennady]

Здравствуйте!

Вроде бы и несложная задача, а как сделать не знаю...

Дано: Документ Excel, 2 листа.
Лист 1-й: 1 столбик с номерами телефонов.
Лист 2-й: таблица формата "имя, телефон(ы), описание" (3 столбика).

Задача: получить таблицу с листа 2 без строк с телефоном, который есть в листе 1.

Будет ли это новый лист, или просто удалятся строки с исходного - неважно. Еще нюанс в том, что в листе 2 телефоны в основном написаны по 2 в одной ячейке (дом. и моб.), надо удалять по-любому, даже если хоть один из них есть в листе 1.

Буду очень благодарен за помощь!

[Pavel55]

Вы ничего не сказали о форме написания телефонов, а как вы знаете, все поразному записыванют телефонные номера, для примера,
1111111
111-11-11
111-1-111
(495) 111-11-11
и т.д.

Посмотрите пример с макросом.

[Gennady]

Формат номеров одинаков в обоих листах, и выглядит ХХ-ХХ-ХХ или 8 (ХХХ) ХХХ-ХХ-ХХ.

[Pavel55]

Посмотрели пример, приложенный к моему первому сообщению?

[Gennady]

Посмотрел. Оно! Спасибо огромное! А можно теперь как-то сделать, чтоб оно еще и строку удяляло если в Листе 1 есть запись к примеру "111-11-11" а в Листе 2 запись "111-11-11, 111-11-77" (в одной ячейке, 2 номера)?

[Pavel55]

По-идее, мой код должен удалять эти ячейки, т.к. в методе Find стоит аргумент LookAt:=xlPart, т.е. искать по совпадению с частью ячейки. Я сейчас это проверил. Добавил в первую строку на втором листе телефон 111-11-11, 111-11-77, запустил макрос и эта строка была удалена, т.е. есть совпадение с первым телефоном (111-11-11). Странно, что у вас это не получилось. Возможно, первый телефон записан неправильно (не совпадает по написанию с телефоном на листе 1). Посмотрите приложенный пример. Тут я включил 2 телефона в некоторые ячейки. У меня они удаляются!

[Gennady]

Да, точно, "111-11-11, 111-11-77" удаляется, а "111-11-77, 111-11-11" нет...

[Pavel55]

У меня удаляется.

[Gennady]

Ага, 3-й работает! Большое Вам спасибо!

[Pavel55]

)) Код в первом, втором и третьем варианте один и тот же. Никаких изменений в коде не было. Были изменения просто в таблице с телефонами, в которую я подставлял ваши примеры и выкладывал вам на обозрение )

Но в том коде есть недочёт. Если один и тот же телефон будет в разных строках, то макрос удалит только первый попавшийся телефон, а второй оставит. Вот более улучшенная версия. Тут макрос удалит телефон столько раз, сколько он встречается в таблице.