Разбивка ячейки на столбец

[ymnuhj]

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

В ячейке записана шахматная партия. Нужно выстроить все ходы последовательно в столбец, при этом избавишись от номеров пар ходов (как это показано на рисунке).

Заранее благодарен

[kuklp]

Public Sub www()
    Dim c As Range, a, i&
    For Each c In [a7].CurrentRegion
        a = Application.Trim(Split(c, "."))
        For i = 2 To UBound(a) - 1
            [a65536].End(xlUp)(2) = Left$(a(i), InStrRev(a(i), " ") - 1)
        Next
        [a65536].End(xlUp)(2) = a(UBound(a))
    Next
End Sub

[ymnuhj]

А как убрать номера с помощью ctrl+h?

[kuklp]

Там текст по столбцам не получится. Только если по точке разбивать. Разная длина строк. См. макрос в прошлом посте.

[ymnuhj]

Спасибо. Работает.
А как разбить сразу (или результат работы этого макроса) на отдельные ходы? Макрос разбивает на пары ходов.

[kuklp]

Текст по столбцам

[alex77755]

Как вариант макросом. Выделить ячейку с ходами и запустить макрос

[kuklp]

Public Sub www()
    Dim c As Range, a, i&
    For Each c In [a7].CurrentRegion
        a = Split(c, " ")
        For i = 2 To UBound(a)
        If InStr(a(i), ".") = 0 Then _
            [a65536].End(xlUp)(2) = Trim$(a(i))
        Next
        [a65536].End(xlUp)(2) = a(UBound(a))
    Next
End Sub

P.S. Алексей, а что это Вы картинки выкладываете?

[alex77755]

По ходам почти так же

[ymnuhj]

kuklp. Это именно то, что нужно.Только запись начинается со второго хода. Спасибо за помощь
P.S. Алексею спасибо за предложенный вариант