Помогите отсортировать список

[ret83]

Я новичек в общении с Exel и столкнулся с такой проблемой:
Есть список компаний представленный в виде :
Название компании Альпин пром ТОО
E-mail alpщ_p@mail.ru
Руководитель Ю.В.Евсюков
Название компании Аль-Рами ТОО
E-mail
Руководитель Е.Н.Редутко

Так вот мне нужно удалить все компании поле "E-mail" которых пусто.
Перечитал все доступные справочники но так ничего толкового и не нашел.
Буду очень благодарен за помощь.

[Pavel55]

Выложите сюда пример файла. Так будет понятнее нам

[Alkaline]

ret83, а насколько часто нужно решать подобную задачу? Если 1 раз, то, может быть, проще воспользоваться автофильтром?

Например, так:

1. Будем рассматривать тройки строк, типа:

A2: Название
A3: E-mail
A4: Руководитель
A5: Название - и т.д.

2. Поместим в ячейку B3 формулу:
=ЕСЛИ(A2="E-mail";1;0)

3. В ячейки B2 и B4 формулу:
=B3

Таким образом, если E-mail не заполнен (т.е. есть только запись "E-mail" без адреса), то эту строчку, вышестоящую и нижестоящую отмечаем единичками.

4. Эти три ячейки выделяем и копируем в нижестоящие ячейки столбца B.

5. Потом ставим автофильтр в 1-й строке, выбираем в столбце B единицы и, выделив мышью все эти строки, удаляем их (промежуточные строки, содержащие нули, не удалятся). Потом выбираем в фильтре (Все) - и готово.

[ret83]

пожалуйста файл:

[SAS888]

Проще всего это сделать средствами VBA.
В прикрепленном файле войти: Сервис/Макрос/Макросы, выбрать макрос "Udalenie", нажать Выполнить.

[ret83]

Спасибо огромное!
Все работает, просто супер!

Но есть один вопрос если я хочу применить данный макрос к списку более внушительных размеров например строк в 30000 нужно что-либо менять?
Когда я применяю макрос в файле с большим списком, то он удаляет все записи.

[SAS888]

Работа макроса построена следующим образом:
Просматриваются строки с начала до последней записи в столбце "A" (в обратном порядке). Контролируется столбец "B". Если встречается пустая ячейка, например "B26", то удаляются строки с 25 по 27, т. е. одна - выше и одна - ниже пустой ячейки в "B". Если весь лист построен именно по такой структуре как Ваш вложенный файл, то макрос будет корректно работать вплоть до строки 65535. Если что-то не получается, или необходимо изменить (дополнить) условия сортировки - прикрепите Ваш "большой" файл и объясните что нужно.
И еще вопрос. Может лучше скрывать ненужные записи, или все же удалять?

[Alkaline]

ret83, ну, ты все-таки поостерегся бы целиком базу е-мейлов выкладывать, тебя и за первый файл начальство по голове не погладило бы... ";-)

[ret83]

Спасибо всем, ту базу уже отсортировал.

А именно начальство мне этот сайт и подсказало, если вы имели ввиду, что этими адресами могут воспользоваться спамеры, ну это плата за скорость моей работы.