Разделить по нескольким столбцам данные

[Blame]

Добрый день.

Подскажите, пожалуйста, как можно разделить на столбцы слитые в 1 строку несколько номеров телефонов. Проблема после выгрузки данных из тел. справочника. Нужно вытянуть только номера телефонов и разделить их по отдельным столбцам. Количество столбцов = количество номеров тел. Беда в том, что данные слиты в 1 строку, вразноброс.

Есть ячейка А. В ней может быть:
1) Вбит один номер телефона. Например: 454-545-53. На выходе будет 454-545-53.
2) несколько номеров и разделители/комментарии между ними. Например:
123 2321 прием., 123 0222 моб., : Имя 8123456754. На выходе будет 3 столбца: 123 2321 | 123 0222 | 8123456754
3) Комментарий, который не относится к телефонным номерам -такие значения нужно образом затирать

Вручную это сделать, к сожалению, не получится, огромный массив данных (
Файл с примером прикрепляю.

Спасибо.

[SAS888]

Посмотрите пример во вложении. Откройте файл и запустите макрос "Main".
Данные должны находиться в столбце "A". Количество строк не ограничено.

[Blame]

Спасибо большое!
95% данных обработалась верно.
остальные 5% - это уже вопросы к данным, которые были криво(говоря корректно) занесены. Вручную исправила.