Как разбить одну строку на несколько, ориентируясь на Заглавные буквы

[vikttur]

Нашел на днях эту тему. Задача "проняла". Автору решение уже не нужно, но формулистам может понравиться. По подсказке ZORRO2005 разместил ее на Планетной Избушке.
Заходите, издевайтесь над формулами

Поздравляю всех со скорыми родами. Надеюсь, новорожденный подарит вам (и мне тоже ) удовольствие от жизни на протяжении времени его короткого правления

[EvgeniyaFil]

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

можно, например, так

Откройте файл, запустите макрос "TextDivide" - Сервис - Макросы

Примечание: результат выводится горизонтально, при большом количестве строк для деления это гораздо удобней

Zdravstvuite,
podskazite, pozaluista, kak izmenit makros, chtobi on delil tekst po zaglavnoj bukve, kogda pered zaglavnoj bukvoi net probela. Primer: Textured LeatherRubberSoleBow detailingStitch detailing leather. Nuzno v raznije jacheiki: Textured Leather Rubber Sole Bow detailing Stitch detailing (6 jachejek)

Zaraneje ogromnoe spasibo
Evgeniya

[Казанский]

Пробуйте - делит по заглавной букве независимо от наличия пробела перед ней

Sub TextDivide1()
Dim re As Object, i As Long, n As Long, x
Set re = CreateObject("vbscript.regexp")
re.Global = True
re.Pattern = "[A-Z][^A-Z]*"
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
  n = 1
  For Each x In re.Execute(Cells(i, 1).Value)
    n = n + 1
    Cells(i, n) = Trim(x)
  Next
Next
End Sub

[EvgeniyaFil]

Spasibo Vam ogromnoe. Vi ochen pomogli. Vot tut stolknulas eshe s odnoj problemoj, kogda dannije imejut sledujushij vid. TexturedLeather800 Rubber40 Bow detailingStitch Detailing. To est slova v isxodnoj stroke est i s malenkoj bukvi, i sbolshoj. Mezdu nuznimi mestami delenija net probelov. Inogda mesto delenija nachinaetsja zifroj (800 Rubber). To est nuzno podelit po prinzipu xX (malenkaja, a potom srazu bolshaja bukva, rezultat x X), uchitivaja chto esli est zifra, to ona poidet k pravomu tekstu, Lether / 800 Rubber).Nuznij variant: Textured / Leather / 800 Rubber / 40 Bow Detailing / Stitch Detailing / (slash ne nuzen v itoge, on ilustrativen). Dlja menja o4en tjazelij slu4aij, smozete chto-nibud posovetovat. Zaraneje spasibo