Разделение строки на столбцы.

[Vasek007]

Имеем варианты строк размещенные в одной ячейке.

Aa Bb, Cc Dd, Ee Ff (Gg Hh (67'), Ss Vv, Xx 4, Tt 6,5, Mm Nn, Кк -), Ll 1), Pp 3, Rr Uu

Нужен результат:
Aa Bb
Cc Dd
Ee Ff
Gg Hh
Ss Vv
Xx
Tt
Mm Nn
Kk
Ll
Pp
Rr Uu

Разделитель как "," постоянен. Т.е. отсутствие в итоге любых цифр, и знаков.

[IgorGO]

вот такой функцией почти все получилось (вводится как формула массива)

Function Разделить(s As String)
  s0 = ""
  For i = 1 To Len(s)
    ch = Mid(s, i, 1)
    If (ch >= "a" And ch <= "z") Or (ch >= "A" And ch <= "Z") Or (ch >= "А" And ch <= "я") Or ch = " " Or ch = "," Then s0 = s0 & ch
  Next
  Разделить = WorksheetFunction.Transpose(Array(Split(s0, ",")))
End Function

что не получилось:
тупому компьютеру не обьяснишь, что после Ff должна была быть запятая, но ее не видно...
и что 6,5 - это число 6.5, а не разделение строки запятой на очередные порции
ну и с помощью Trim можно лидирующие пробелы убрать, но это Вам задание на дом

[nilem]

Вариант. В А4 - строка, заполняем - начиная с С6. Ee Ff (Gg Hh (67') без запятой не разделяется.

Sub Разделить2()
Dim x, i As Integer, j As Integer, txt As String
x = Split([A4], ",", , 1)
For i = 0 To UBound(x)
    txt = ""
    For j = 1 To Len(x(i))
        If Mid(LCase(x(i)), j, 1) Like "*[a-z а-я]*" Then
            txt = txt & Mid(x(i), j, 1)
        End If
    Next j
    Cells(6 + i, 3) = Trim(txt)
Next i
End Sub

[Vasek007]

Спасибо попробую, но я пошел другим путем

Sub d_1_RowToRow()
'Заменяем в тек.ячейке все не нужные нам символы на ","
ActiveCell.Replace What:="(", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
ActiveCell.Replace What:=")", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
ActiveCell.Replace What:="'", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
ActiveCell.Replace What:=":", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
ActiveCell.Replace What:="1", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
ActiveCell.Replace What:="2", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
ActiveCell.Replace What:="3", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
ActiveCell.Replace What:="4", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
ActiveCell.Replace What:="5", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
ActiveCell.Replace What:="6", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
ActiveCell.Replace What:="7", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
ActiveCell.Replace What:="8", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
ActiveCell.Replace What:="9", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
ActiveCell.Replace What:="0", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
ActiveCell.Replace What:="–", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
ActiveCell.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

'Раскладываем строку на строки, где разделитель символ ","
x_y = ","
Dim sStr() As String, li As Long
Application.ScreenUpdating = False
sStr = Split(ActiveCell, x_y)
For li = 0 To UBound(sStr): ActiveCell.Offset(li + 1) = Trim(sStr(li)): Next li
Application.ScreenUpdating = True

End Sub

И подключил удаление пустых строк.

Sub b_DeleteEmptyRows()
'Удаление пустых строк в выделенном диапазоне
lastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = lastRow To 1 Step -1
    If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r

End Sub

[Vasek007]

Сообщение от nilem

Вариант. В А4 - строка, заполняем - начиная с С6. Ee Ff (Gg Hh (67') без запятой не разделяется.

Sub Разделить2()
Dim x, i As Integer, j As Integer, txt As String
x = Split([A4], ",", , 1)
For i = 0 To UBound(x)
    txt = ""
    For j = 1 To Len(x(i))
        If Mid(LCase(x(i)), j, 1) Like "*[a-z а-я]*" Then
            txt = txt & Mid(x(i), j, 1)
        End If
    Next j
    Cells(6 + i, 3) = Trim(txt)
Next i
End Sub

Согласен проходит, только затык на
..., Ee Ff (Gg Hh (67'),...

[Vasek007]

Сообщение от IgorGO

вот такой функцией почти все получилось (вводится как формула массива)[CODE]Function Разделить(s As String)

Тоже на конкретном примере работает но затык такой же
..., Ee Ff (Gg Hh (67'),...

[Vasek007]

Сообщение от nilem

Вариант. В А4 - строка, заполняем - начиная с С6. Ee Ff (Gg Hh (67') без запятой не разделяется.

Доработал

ActiveCell.Replace What:="(", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

И так же пошла.

Стоп затык на варианте
Aa Bb, Cc Dd, Ee Ff (Gg Hh (67'), Ss Vv, Xx 4, Tt 6,5, Mm Nn, Кк -), Ll 1), Pp 3, Rr Uu, Zz)

[vikttur]

Меню Данные-Текст_по_столбцам-С_разделителями.
Далее столбцы транспонировать в строки.

[Vasek007]

Сообщение от vikttur

Меню Данные-Текст_по_столбцам-С_разделителями.
Далее столбцы транспонировать в строки.

И что дальше

[vikttur]

Вариант привел на случай, если не знали такой возможности.
Дальше разделители "," и "(", после этого удаление цифр "Найти/Заменить",
ручная чистка, как писали, "затыков" и транспонирование чистого диапазона.