Текст в ячейке - по строкам

[VictorM]

Здравствуйте, Уважаемые!
Прошу подсказать.
Есть текстовые строки в ячейке, разделитель - точка с запятой.
Нужно разбить этот текст, но заминка у меня произошла в том, что мне нужно это сделать ПО СТРОКАМ.
Пробовал штатные средства: текст по столбцам+транспонирование. Получается, но что-то уж очень оно коряво выглядит. Посмотрел темы на форуме - ничего не нашел подходящего.
Более наглядно все это видно в файле.
Спасибо.

[shanemac51]

''  примерно так-------------------------------
Sub Макрос120322b()
Dim j1, j1a, j2, j3
Dim s1, s2
Dim xm
j1 = 11
j1a = 0
Do While j1 < 250
j1 = j1 + 1
'''''''''''''''''''''''''не во всех строках нет точки с запятой
'''''''''''''''''''''''''добавка псевдо-элемента
s1 = "" & Cells(j1, 1) & ";*"
If Len(s1) > 1 Then
xm = Split(s1, ";")
j2 = LBound(xm, 1)
j3 = UBound(xm, 1)
Do While j2 < j3
If xm(j2) <> "*" Then
j1a = j1a + 1
Cells(j1a, 3).Value = xm(j2)
End If
j2 = j2 + 1
Loop
End If
Loop
End Sub

[VictorM]

Да, работает, спасибо!.
Правда мне нужно только для одной ячейки, образцы строк я сделал просто для того чтобы показать, какие они могут быть.
Попробую подогнать сейчас для одной ячейки.

[Казанский]

Sub bb()
Dim v
v = Split(Join(Application.Transpose(Range("A1", Cells(Rows.Count, "A").End(xlUp)).Value), "; "), "; ")
[C1].Resize(UBound(v) + 1) = Application.Transpose(v)
End Sub

Строки не длиннее 255 (ограничение функции ТРАНСП).

[Казанский]

Для одной ячейки проще:

Sub bb1()
Dim v
v = Split([A1], "; ")
[C1].Resize(UBound(v) + 1) = Application.Transpose(v)
End Sub

[VictorM]

Казанский да, как всегда - круто!
Теперь вот пробую сделать для одной единственной ячейки.
мне нужно поместить содержимое ячейки в переменную и затем вставить получившиеся отдельные названия в ту же ячейку (первую фразу) и остальные ниже.
Что-то я уже сам себя не понимаю))
лучше еще файлик приложу

[VictorM]

Для одной ячейки проще:

Пока писал свое сообщение, Вы уже ответили на мой вопрос)
Дальше я уже сам.
Большое спасибо за помощь!
p.s.
Все сделал.
Почему-то не могу добавить Вам плюсик к репутации.
Еще раз - большое спасибо!