преобразовать тест по критерию

[DiemonStar]

в общем-то алгоритм не так и сложен:
1. выделяем строку длиной 47 (46 + 1) символов
2. находим в данной строке позицию последнего пробела
3. Добавляем левую часть от найденного пробела в результат через разделитель (если в результате уже есть данные)
4. убираем сохраненную строку и пробел из исходных данных
5. если исходные данные не закончились или в результате не 35 строк, то на п.1
6. сохраняем результат в ячейку
7. обнуляем результат
8. если есть исходные данные то на п.1.

[user7789]

ну вот как так:

Sub ()
    Dim ss$, x&, y&, z&, m&, xx1$, xx2$, s$
    s = [a1].Value
    z = 1
     m = 46
    For x = 1 To Len(s)
        xx1 = Mid(s, x, m)
        xx2 = Right(xx1, 1)
            Do
                m = m - 1
                xx1 = Mid(s, x, m)
                xx2 = Right(xx1, 1)
                If m = 0 Then Exit Do
            Loop While Not xx2 = " "
        If x <> 1 Then xx1 = Mid(s, x - 1, m)
        ss = ss & vbLf & xx1
        x = x + m
        m = 46
        y = y + 1
        If y = 36 Then y = 0: z = z + 1: Cells(1, z) = Mid(ss, 2): ss = ""
    Next
        Cells(1, z + 1) = Mid(ss, 2): ss = ""
End Sub

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.