Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как получить название улицы из текста, содержащего адрес?
 
#1
14.01.2021 15:54:29
Всем доброе время суток, работаю с данным в ексели, и очень хочется автоматизировать таблицы, помогите прописать формулу, чтобы вытянуть название (файл загружен), минус всего это в колонки разное положение наименование улицы. Мне нужно вытянуть название улицы.  Спасибо заранее  
 
 
 
#2
14.01.2021 16:00:51
Саша Саша, и вы туда же?
нужно вам получить название улицы, так и пишите в теме:
"как получить название улицы из текста, содержащего адрес?"
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#3
14.01.2021 16:01:00
Беда конечно с этими вашими экселями )))  
чтоб дело мастера боялось, он знает много страшных слов.
 
 
 
#4
14.01.2021 19:12:14
Цитата
минус всего это в колонки разное положение наименование улицы
UDF
Код
Function iStreet(cell$)
 With CreateObject("VBScript.RegExp")
     .IgnoreCase = True
     .Pattern = "(ул\.|улица|пр\.)\s([^,]+)"
     If .test(cell) Then
       iStreet = .Execute(cell)(0).SubMatches(1)
     Else
       .Pattern = "([^,]+)(?=ул\.|тракт|пр\.)"
       iStreet = .Execute(cell)(0)
     End If
 End With
End Function
 
 
 
#5
22.01.2021 15:46:30
Цитата
Ігор Гончаренко написал:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Спасибо в следующий раз буду знать, впервые на данном форуме. Никогда не была поклонником Exel))
 
 
 
#6
22.01.2021 15:48:48
Цитата
Ri Yu написал:
чтоб дело мастера боялось, он знает много страшных слов.
Спасибо за помощь. Excel это загадочная штука, каждый день узнаешь, что- то новое.  
 
 
 
#7
22.01.2021 16:44:20
Цитата
Kuzmich написал:
unction iStreet(cell$) With CreateObject("VBScript.RegExp")     .IgnoreCase = True     .Pattern = "(ул\.|улица|пр\.)\s([^,]+)"     If .test(cell) Then       iStreet = .Execute(cell)(0).SubMatches(1)     Else       .Pattern = "([^,]+)(?=ул\.|тракт|пр\.)"       iStreet = .Execute(cell)(0)     End If End WithEnd Function
как это все сделать мне в мою книгу? подскажите? или в тот же файл, который вложила. Голова кругом увидела (понимаю, что макрос и все)))  
 
 
 
#8
22.01.2021 16:46:19
Саша Саша, сообщения №5, 6. Вы отвечаете на подписи! :)
Сообщение №6. Вы бездумно копируете. Цитата - не копия.
Сообщения №№5-7. Можно было вернуться в первое из них и дополнить его, а не создавать очередь
 
 
 
#9
22.01.2021 16:47:17
Саша Саша, Создание макросов и пользовательских функций на VBA
P.S.: свои сообщения нужно дополнять (через редактирование), а не плодить новые - могут забанить  ;)
Изменено: Jack Famous - 22.01.2021 16:47:25
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#10
22.01.2021 16:53:46
Саша Саша,
UDF  в стандартный модуль
В ячейку столбца В пишите =iStreet(A2)  в A2 ваш текст
 
 
 
Страницы: 1
Наверх