1) Открываем файл "3434190.xls".
2) Заходим в меню "Сервис" - "Макрос" - "Макросы...".
3) Нажимаем "Войти".
4) Открывается Visual Basic с текстом макроса "Auto_Open".
5) В окне с текстом опускаемся в самый низ, ниже строк:
ФОРМУЛАВОЗВРАТТЕК = retVal

End Function
6) Ниже вставляем текст самого макроса, приведённый Hohoho в сообщении 28.
7) На вопрос о редактировании - отвечаем "Ok".
8) Получается:
ФОРМУЛАВОЗВРАТТЕК = retVal

End Function

Sub KillHiddenRows()
Dim li As Long
For li = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Rows(li).Hidden Or Rows(li).Height = 0 Then Rows(li).Delete
Next li
End Sub

9) Закрываем окно Visual Basic.
10) На всякий случай копируем лист "Форма по МДС 81-35.2004".
11) Стоим на копии этого листа.
12) Заходим в меню "Сервис" - "Макрос" - "Макросы...".
13) В окне выбираем "KillHiddenRows".
14) Нажимаем "Выполнить".
15) Дожидаемся результата выполнения.

Условие:
1) Есть куча организаций (список в столбик).
2) В соседнем сболбце напротив некоторых организаций (не всех) указаны адреса электронной почты. Адресов может быть указано несколько. Разделителем одного адреса от другого (для облегчения) является ";".
Примечание: Хотя, на практике, может быть и "," и "пробел" (были случаи в горах). Но, пусть пока рассмотрим только ";".
Нужно:
1) Проверить все имеющиеся адреса на корректность (чтобы были только нормальные символы, т.к. при вводе могли ошибиться, вставить русские буквы, неиспользуемые символы и т.д.).
2) Напротив тех организаций, где есть "не корректные адреса" ставить некий отличительный знак, чтобы потом исправить вручную.
(Примечание: Я решал без макросов).
В дальнейшем:
3) Составить список:
1-й столбик: Адрес электронной почты (один)
2-й столбик: Название организации, которой принадлежит адрес.
4) Список отсортировать по возрастанию адреса электронной почты (по алфавиту).
5) Полученный список сохранить в отдельном файле на рабочем столе пользователя.
(Примечание: Здесь без макросов у меня дело не обошлось).

1) Т.к. "Проверка на корректность букв в адресах" делалась "наглядно", без макросов, да ещё с бо-о-о-льшим запасом, то файлик получился большим (более 30МБ) Вид, прилагаемый здесь, урезан до 32 организаций. Кому нужно больше:
На листе "Контр+mail" скопируйте строчку №34 и вставьте ниже до строки №12644.
2) Делался "наспех", поэтому почти везде вместо писания "скриптов" использовал макросы запоминания действий в Excel.

1) На лист "Контр+mail" заносятся организации с адресами (хоть через ",", хоть через ";", хоть с пробелмами, хоть без них - в дальнейшем они просто отбросятся).
2) В столбцах "L-CM" перечислены символы, которые проверяются в качестве "недопустимых".
3) На этом же листе в ячейке "j2" отображается сколько всего ошибок присутствует в адресах.
Ошибки можно искать при помощи "фильтра" по этому же столбцу: не равные "нулю".
Примечание: пока присутствуют ошибки в адресах - список адресов составить будет нельзя: появляется окошко с сообщением о наличии ошибок (п.8).
4) Исправляем (при необходимости ошибки).
5) Переходим на лист "Работа". На нём вкратце есть описание того, что делается.
6) Также указано в ячейке "M7" - название уникального адреса, а в "O7" - сам уникальный адрес, который добавляется к общему списку рассылки (там указывается электронка, которая также будет включена в общий список).
7) Нажимаем вверху кнопку "Создать файл со списком".
Примечание: Кнопка "Очистить список" - просто ощищает вспомогательные списки.
8) Если есть ошибки в адресах - появляется окошко предупреждения.
9) Если ошибок нет - лопатит всё, в конце создаёт файл "E-mail.xls" на рабочем столе. Если такой уже есть, то предложит перезаписать. Созданный файл остаётся на экране.
ВНИМАНИЕ: Его нужно закрыть, если хотим заново создать список e-mail'ов.
И ещё, в догонку: полностью от всех ошибок в адресах - этот файл не спасает. Проверяет лишь на наличие "некорректных символов", на отсутствие символа "@" в строке с адресами. Полный список символов указан на листе "Контр+mail" в столбцах "L-CM" в строке №2. Если встретилось ещё что-то не предусмотренное - создание списка может вызвать ошибку. Закройте её, и просмотрите адреса на корректность. Повторюсь, это "не коммерческая версия".