Здравствуйте, подскажите пожалуйста есть ли возможность разбить автоматически адрес на составляющие: дом, корпус, строение.? База большая, вручную не справлюсь.
PS ( не прикрепился файл, исправил )
Здравствуйте, подскажите пожалуйста есть ли возможность разбить автоматически адрес на составляющие: дом, корпус, строение.? База большая, вручную не справлюсь.
Здравствуйте. Без файла-примера только советы общего характера: либо через инструмент "Текст по столбцам", либо макросом, либо формулами на основе ПСТР()
Здравствуйте. Без файла-примера только советы общего характера: либо через инструмент "Текст по столбцам", либо макросом, либо формулами на основе ПСТР()Che79
Вариант в файле. Что означает строение, мне не понятно что к ним относить. Можно сделать то же самое и без формул используя "Текст по столбцам" разделитель "запятая"
Вариант в файле. Что означает строение, мне не понятно что к ним относить. Можно сделать то же самое и без формул используя "Текст по столбцам" разделитель "запятая"gling
gling, Спасибо за варианты, строения есть в основной базе. Например в этой таблице в строке 116. Возможно ли и строение занести в соответствующий столбик? В любом случае вариант уже рабочий, спасибо.
gling, Спасибо за варианты, строения есть в основной базе. Например в этой таблице в строке 116. Возможно ли и строение занести в соответствующий столбик? В любом случае вариант уже рабочий, спасибо.Alabama19
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]
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
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
