Разделить адрес на составляющие. Дом, корпус, строение

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Разделить адрес на составляющие. Дом, корпус, строение (Формулы/Formulas)

Alabama19

Дата: Воскресенье, 01.07.2018, 00:00 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 79

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте, подскажите пожалуйста есть ли возможность разбить автоматически адрес на составляющие: дом, корпус, строение.? База большая, вручную не справлюсь.

PS ( не прикрепился файл, исправил )

К сообщению приложен файл: 2459655.xlsx (14.5 Kb)

Сообщение отредактировал Alabama19 - Воскресенье, 01.07.2018, 00:19

Ответить

Che79

Дата: Воскресенье, 01.07.2018, 00:09 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1649

Репутация: 306 ±

Замечаний: 0% ±

2013 Win, 365 Mac

Здравствуйте. Без файла-примера только советы общего характера: либо через инструмент "Текст по столбцам", либо макросом, либо формулами на основе ПСТР()

Делай нормально и будет нормально!

Ответить

gling

Дата: Воскресенье, 01.07.2018, 00:11 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2519

Репутация: 674 ±

Замечаний: 0% ±

2010

Здравствуйте.

Цитата Alabama19, 01.07.2018 в 00:00, в сообщении № 1 ()

есть ли возможность разбить автоматически

Это зависит от данных, есть ли там какой нибудь знак определяющий разницу между домом и корпусом, между корпусом и строением.

ЯД-41001506838083

Ответить

Alabama19

Дата: Воскресенье, 01.07.2018, 00:19 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 79

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Прошу прощения, почему то не прикрепился файл.

К сообщению приложен файл: 1499682.xlsx (14.5 Kb)

Ответить

gling

Дата: Воскресенье, 01.07.2018, 00:50 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2519

Репутация: 674 ±

Замечаний: 0% ±

2010

Вариант в файле. Что означает строение, мне не понятно что к ним относить. Можно сделать то же самое и без формул используя "Текст по столбцам" разделитель "запятая"

К сообщению приложен файл: 7141480.xlsx (18.8 Kb)

ЯД-41001506838083

Ответить

Alabama19

Дата: Воскресенье, 01.07.2018, 01:02 | Сообщение № 6

Группа: Пользователи

Ранг: Участник

Сообщений: 79

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

gling, Спасибо за варианты, строения есть в основной базе. Например в этой таблице в строке 116. Возможно ли и строение занести в соответствующий столбик? В любом случае вариант уже рабочий, спасибо.

Ответить

gling

Дата: Воскресенье, 01.07.2018, 01:47 | Сообщение № 7

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2519

Репутация: 674 ±

Замечаний: 0% ±

2010

Добавил для строения и немного изменил формулу для домов.

К сообщению приложен файл: 4955388.xlsx (19.2 Kb)

ЯД-41001506838083

Ответить

sv2014

Дата: Воскресенье, 01.07.2018, 09:05 | Сообщение № 8

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 226

Репутация: 61 ±

Замечаний: 0% ±

Excel 2013

Alabama19, вариант функций в столбцах G F E или aaa1 bbb1 в столбцах I J

[vba]

Код

Function aaa$(t$)
With CreateObject("VBScript.RegExp"): .Global = True: .Pattern = "\d+"
If .Execute(t).Count = 2 Then aaa = .Execute(t)(.Execute(t).Count - 1) Else aaa = ""
End With
End Function

[/vba]

[vba]

Код

Function bbb$(t$)
With CreateObject("VBScript.RegExp"): .Global = True: .Pattern = "\d+"
If .Execute(t).Count = 1 Then bbb = .Execute(t)(.Execute(t).Count - 1) Else bbb = .Execute(t)(.Execute(t).Count - 2)
End With
End Function

[/vba]

[vba]

Код

Function ccc$(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "[А-ЯЁ][а-яё]+(?=, д\.)": ccc = .Execute(t)(0)
End With
End Function

[/vba]

К сообщению приложен файл: example_01_07_2.xls (93.5 Kb)

Сообщение отредактировал sv2014 - Воскресенье, 01.07.2018, 11:44

Ответить

Страница 1 из 1
1