как в ячейке разделить текст на абзацы

[evdss]

например, есть текст Иванова Ирина Ивановна 67000 Республика ,Северо-Байкальский район,рп Новый Уоян,пер Майский 1 кв 1. Надо,
Иванова Ирина Ивановна
67000 Республика ,Северо-Байкальский район,рп Новый Уоян,пер Майский 1 кв 1.

[SAS888]

Пусть, например, данные для обработки находятся в столбце "A", начиная с 1-й строки. Преобразовать значения можно, выполнив, например, такой макрос:

Sub Main()
    Dim i As Long, s As String, s1 As String, s2 As String, a
    Application.ScreenUpdating = False: On Error Resume Next
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        s = Application.Trim(Cells(i, 1)): a = Split(s, " ")
        If UBound(a) > 2 Then
            s1 = a(0) & " " & a(1) & " " & a(2)
            s2 = Replace(s, s1, "")
            Cells(i, 1) = s1 & Chr(10) & Application.Trim(s2)
        End If
    Next
End Sub

Пример во вложении.