Помогите разнести текст ячейки по столбцам

[Vlad-S]

Прошу помочь. Текст в ячеке - 400123 ВОЛГОГРАД Депутатская 15 Мне необходимо вынести в отдельный столбец текст, написанный ЗАГЛАВНЫМИ буквами. Через опцию "Текст по столбцами" этого сделать не получается. Если такая возможность существует, то прошу или пример или более менее понятное объяснение, а не "пишите макрос". Заранее спасибо.

[motorway]

Пусть текст находится в яч. A1.
Если известно, что нужное слово всегда второе, можно сделать так: =ПСТР(A1; ПОИСК(" ";A1;1);ПОИСК(" ";A1;ПОИСК(" ";A1;1)+1)-ПОИСК(" ";A1;1)).
Если оно может быть где угодно, чуть посложнее будет.

[motorway]

А вот пример макроса: определяет, какое слово написано заглавными буквами в строке, и помещает его в ячейку A2:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False


Dim text As String

text = Range("A1").Value
parts = Split(text, " ")
For Each part In parts
If (UCase(part) = part) Then
Range("A2").Value = part
End If


Next part
Application.EnableEvents = True
End Sub

[Vlad-S]

motorway Нет, заглавное слово не всегда второе А вот про пример макроса - ВАУ, ЭХ Ёть мать... 8-( .... я, конечно, попробою в этом разобраться, но если не посчитаете это наглостью, то пришлите файл-пример как прописывается...

[Aent]

Vlad-S, задача сформулирована нечётко.
Что должно быть перенесено из строки
"xxxxYY aXX XXa E,E 11W ZZZZ WWW aaaa BBBB CCC Dddd" ?
Cформулируйте точно правила по котрым выделяется текст.
Что делать в случае присутствия нескольких цепочек заглавных ?
Что делать с цифрами и спецзнаками если они идут подряд с заглавными
буквами?
и т.д и т.п