Переноса слова из одной ячейки в другую

Пользователь

Сообщений: 36 Регистрация: 26.04.2021

03.05.2021 17:40:53

Добрый день.

Хочу попросить о помощи. Нужно из ячейки с текстом "000000, Респ. Башкортостан, г. Стерлитамак, ул. Коммунистическая, д. 00, КВАРТИРА 000" вытащить наименование города и перетащить его в другую ячейку. И при возможной другой комбинации типа "000000, г. Москва, ул. Ленина, д. 00"

Буду признателен если не оставите этот пост без внимания, заранее спасибо.

memo

Пользователь

Сообщений: 1521 Регистрация: 28.02.2018

Excel 2013/2016

03.05.2021 18:00:32

Без примера как-то так:

Код
=TRIM(RIGHT(SUBSTITUTE(LEFT(A1,FIND(" ул. ",A1)-2)," ",REPT(" ",25)),25))

Переведите формулу на русский, если у Вас русский Офис, и замените запятые на точки с запятыми.

Kuzmich

Пользователь

Сообщений: 8057 Регистрация: 21.12.2012

03.05.2021 18:29:00

Цитата
вытащить наименование города

UDF

Код
Function iTown(cell$) With CreateObject("VBScript.RegExp") .Global = True .Pattern = "г\.[^,]+" If .test(cell) Then iTown = .Execute(cell)(0) Else iTown = "" End If End With End Function

Иван Иванов Пользователь Сообщений: 36 Регистрация: 26.04.2021	#4 03.05.2021 19:03:07 Спасибо большое, выручили:)