Как разбить содержимое одной ячейки на несколько?

[Niki12]

Здравствуйте! А у меня такая проблема. Имеется один столбец,в ячейках которого текстовые фразы,разделенные точкой с запятой,причем после точки с запятой могут стоять и пробелы,забитые по ошибке. Необходимо все эти фразы разместить в один столбец,одна фраза-одна строка.Например

лена пишет;оля спит; маша варит
света молчит; гена смотрит; вова поет
даша моет; ира машет;дима метет
нужно получить

лена пишет
оля спит
маша варит
света молчит
гена смотрит
вова поет
даша моет
ира машет
дима метет
Средствами Экселя не могу этого сделать.В реальных файлах по 3000строк.Может это можно макросом сделать?

[DiemonStar]

почему не можете?
Сначала делаете замену "; " на ";" и нажимаете "Заменить всё" пока не останется
а потом "Данные" - "Текст по столбцам" - "С разделителями" и в качестве разделителя ";" выбираете.

[MCH]

Можно так:

Sub www()
Dim r As Range, x, i&
Range("B:B").ClearContents
For Each r In Range("A:A").SpecialCells(xlCellTypeConstants, 2)
    For Each x In Split(r.Value, ";")
        i = i + 1
        Cells(i, 2) = Trim(x)
Next x, r
End Sub

Текст находится в столбце "A", результат заносится в столбец "B"

[DiemonStar]

упсь, заметил свой косяк)

[Niki12]

Уважаемый МСН! Спасибо! Все работает! Даже не ожидала такой быстрый отклик. Спасибо огромное! Вы меня спасли!