Перестановка частей текста в строках в обратном порядке. Макрос.

[VictorK]

Здравствуйте, уважаемые форумчане!

Для работы периодически скачиваю с сайта Россвязи таблицы с ресурсом нумерации российских операторов связи.
Проблема в том, что в поле "Регион" неудобно представлена информация, т.е. в начале часто идёт название населённого пункта, затем, через разделитель "|" - название района, и только в конце строки область, край или республика, также отделенные друг от друга символом "|".

Пример:
Андреевка |Касторенский |Курская область
Апатиты |Мурманская область

Для сортировки по регионам лучше, когда в начале строки находится область, край или республика, приходится менять "части" региона в обратном порядке, чтобы сначала шла область или республика, затем район и в конце - населенный пункт (если он есть, может быть просто область без разделителей, или только область и район). Максимальное количество частей региона - 4 с тремя разделителями.
Для решения этой задачи использую разделение текста по столбцам и затем формулой собираю части в обратном порядке. Из за разного количества частей последние попадают в разные столбцы, приходится в формуле проверять ячейки на пустые строки, убирать лишние пробелы, формула получается громоздкой, а строк в реальных файлах сотни тысяч.

Формула:

=ЕСЛИ(H3="";СЖПРОБЕЛЫ(G3);
ЕСЛИ(I3="";СЖПРОБЕЛЫ(H3)&", "&СЖПРОБЕЛЫ(G3);
ЕСЛИ(J3="";СЖПРОБЕЛЫ(I3)&", "&СЖПРОБЕЛЫ(H3)&", "&СЖПРОБЕЛЫ(G3);
СЖПРОБЕЛЫ(J3)&", "&СЖПРОБЕЛЫ(I3)&", "&СЖПРОБЕЛЫ(H3)&", "&СЖПРОБЕЛЫ(G3))))

Хотелось бы избавиться от необходимости каждый раз заниматься рутинной работой и заменить формулу макросом.
А знаний не хватает, если кому не в тягость - посмотрите, возможно ли реализовать мою "хотелку"?

[IgorGO]

Function ReverseAdr(adr As String) As String
  Dim i As Long, sz As Long, a, s As String
  Do While InStr(adr, " |") > 0
    adr = Replace(adr, " |", "|")
  Loop
  a = Split(adr, "|"): sz = UBound(a)
  For i = 0 To Int((sz - 1) / 2)
    s = a(i):  a(i) = a(sz - i): a(sz - i) = s
  Next
  ReverseAdr = Join(a, ", ")
End Function

[VictorK]

Спасибо, Игорь!
Пойду проверять....

[IgorGO]

проверяйте на этом

[VictorK]

Спасибо, Игорь!
Проверил, отлично работает!

Отправил на Яндекс-деньги благодарность.

[SAS888]

Можно проще:

Function ReverseAdr2(adr As String) As String
    Dim i As Integer, a: a = Split(StrReverse(adr), "|")
    For i = 0 To UBound(a): a(i) = Trim(StrReverse(a(i))): Next
    ReverseAdr2 = Join(a, ", ")
End Function

[IgorGO]

SAS888,
+ поменять местами, 1-й и последний, 2-й и предпоследний,...
и согласен - упростить-таки можно

Function ReverseAdr(adr As String) As String
  Dim i As Long, sz As Long, a, s As String
  a = Split(adr, "|"): sz = UBound(a)
  For i = 0 To Int(sz / 2)
    s = Trim(a(i)):  a(i) = Trim(a(sz - i)): a(sz - i) = s
  Next
  ReverseAdr = Join(a, ", ")
End Function

[SAS888]

IgorGO
А что, предлагаемый мной макрос что-то не так делает? Зачем лишние вычисления? Встроенная в Excel функция "StrReverse" работает "шустро"...

[IgorGO]

Однако...
StrReverse напрашивался и я с этого начинал решать эту задачу, но когда увидел, что не могу прочитать результат)) отказался от затеи
а тут чистая философия - "отрицание отрицания"

Красиво! что еще сказать?

у кого-то видел в подписи: я не программист, я только учусь... вот уже 30 лет!

[VictorK]

IgorGO, SAS888
Ещё раз благодарю за помощь!
Буду использовать все три UDF по очереди!