Раскидать данные по ячейкам

[BoRRuS]

Прошу помочь.
Необходимо из столбца А вытащить и разложить текст в соседние столбцы, отделенный друг от друга символом ";". Попытался модифицировать макрос из примера - не удалась.

Правда, количество строк в полном документе зашкаливает за 1500, поэтому, если не затруднит, можно сделать его с процедурой проверки на наличие данный в ячейке проверяемого столбца. Помню, проверку делал, но это было еще в университете лет 5 назад. Поэтому написать ее заново - все равно что изучать Excel.
Office, правда, 2010, но могу прикрепить докум. созданный в Excel2003.

Благодарен вам за внимание.

[Serge 007]

Без макроса:
Данные - текст по столбцам - разделитель ;

[SAS888]

Посмотрите пример во вложении. Запустите макрос "Main".
1. К сожалению, Вы не указали, что делать в случае, если в строке отсутствует знак ";". В настоящем примере такие строки игнорируются.
2. Проверку на наличие данных делать не требуется, т.к. предлагаемый пример с использованием массивов работает достаточно быстро при больших объемах данных.

[BoRRuS]

Огромное всем спасибо!!!