разделить ячейку с адресом на индекс, улицу, город

[k2a7]

как разделить ячейку с адресом на индекс, улицу, город
вот пример как есть все в одной ячейке

Oru 2 75501 Saku
Osmussaare 8 13811 Tallinn
78203 Varbola
Tamme pst 107 50416 Tartu

возможно ли разделить на три ячейки, улица, индекс, город
проблема в том что некоторые адреса имеют только индекс и город
я новичек в Microsoft Office Excel

[IgorGO]

у Вас разнобой в техзадании:

как разделить ячейку с адресом на индекс, улицу, город

возможно ли разделить на три ячейки, улица, индекс, город

поэтому во вложении разбито на:
город, индекс, улица

[k2a7]

Спасибо !
было бы отлично если б вы еще подсказали как это сделать самому да, я наверное не точно выразился, мне нужно автоматизировать как-то этот процесс, документ нужно отредактировать на 32000 записей.

[IgorGO]

полдесятка нажатий кнопок и готово.
такая степень автоматизации Вас устроит?

[Hugo121]

Вариант на 3-х UDF.
В файле тёзки - его функции не трогал.

[IgorGO]

Игорь, если бы еще

Function ulica(s)
  ulica = Trim(Left(s, Len(s) - Len(gorod(s)) - 6))
End Function

вот так определил - то и алгоритм бы оказался не задетым)))

[Hugo121]

Ну хотелось каждую функцию оставить самостоятельной.
А так конечно выглядело бы проще на каждую улицу вызывать по разу ещё город и индекс
Можно для улицы вообще не писать ничего нового - просто стандартными формулами использовать уже полученное:

=СЖПРОБЕЛЫ(ЛЕВСИМВ(A2;ДЛСТР(A2)-(ДЛСТР(D2)+ДЛСТР(E2)+1)))

А вообще на 32000 (да если это ещё нужно делать часто) я бы написал один макрос, который за секунду обрабатывает например всё выделенное.

[ikki_pf]

вариант (что-то напрягает меня двукратный вызов StrReverse )

Function ulica(s)
    Dim arr
    ulica = ""
    arr = Split(s)
    If UBound(arr) > 2 Then
      ReDim Preserve arr(0 To UBound(arr) - 2)
      ulica = Join(arr)
    End If
End Function