Страницы: 1
RSS
Отделить номер дома от улицы
 
Добрый деньКак отделить номер дома в Эксель, а улицу оставить. При условии, что улица состоит из нескольких слов с цифрами.

1905 года 18. Надо 1905 года и 18
абаканская 16/1. Надо абаканская и 16/1

Помогите, пожалуйста  
 
максим музырин, https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=rules
Цитата
2.2. Опишите максимально подробно вашу задачу и желаемый результат. Желательно уточнить вашу версию Excel.
   2.3. Приложите файл(ы) с примером (общим весом не более 300Кб) в реальной структуре и форматах данных того, что есть сейчас и того, что хотелось бы на выходе.
   2.4. Не прикладывайте файлы-примеры с персональными данными, конфиденциальной информацией, коммерческой или государственной тайной! Яндекс и Google не спят - проиндексируют ваши данные и привет - они попадут в открытый доступ. И даже удаление темы потом не поможет.
Не бойтесь совершенства. Вам его не достичь.
 
Приложил файл. Нужно просто разделить в разные ячейки улицу и номер дома. Улица может состоят из 1, 2-х и более слов, в ней могут быть также цифры. Номер дома везде крайний справа.

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

просьба помочь
Заранее спасибо  
 
=СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(RC[-1];" ";ПОВТОР(" ";50));5))
 
см. файл  
 
UDF
Код
Function iHome(cell$)
 With CreateObject("VBScript.RegExp")
     .IgnoreCase = True
     .Pattern = "\d+(/\d+)?[А-Г ]?(\s?СТР)?\.?$"
     iHome = .Execute(cell)(0)
 End With
End Function
Function iStreet(cell$)
 With CreateObject("VBScript.RegExp")
     .IgnoreCase = True
     .Pattern = "\d+(/\d+)?[А-Г ]?(\s?СТР)?\.?$"
     iStreet = .Replace(cell, "")
 End With
End Function
 
Спасибо большое!!! Вы талантище!!!
Страницы: 1
Наверх