Как советовал KuklP В столбец B номер дома и затем по нему сортировать
Код
Option Explicit
Sub Sort()
Dim i As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 2) = Split(Split(Cells(i, 1), "д.")(1), " кв.")(0)
Next
End Sub
тогда разбивайте строки на "страна - город - улица - квартира" и сортируйте по этим 4 доп.столбцам. а еще лучше город заменить индексом, т.к. в России есть совпадающие названия городов
номера домов 001, думаю меня не поймут гоструктуре....
Цитата
тогда разбивайте строки на "страна - город - улица - квартира" и сортируйте по этим 4 доп.столбцам. а еще лучше город заменить индексом, т.к. в России есть совпадающие названия городов
Область, район, населенный пункт, улица, дом квартира
Формируем списки пострадавших в ЧС... специалистов в глубинке как понимаете мало.. точнее я, более менее понимаю.... Просто каждый раз что то новое придумывают.. то не так это не так...
Честно не понял вашу фразу:
Цитата
Геннадий Уваров, это кому надо? Мы, вроде, не отказываем Вам. Будем
Вот извлечение из методички: "внутри населенных пунктов – объекты группируются в алфавитном порядке по наименованию улиц и по номерам жилых домов, зданий и сооружений в порядке возрастания. В наименовании юридических адресов объектов допускаются общепринятые сокращения: улица – «ул.», а слова «проспект», «проезд», «переулок» – пишутся полностью"
Это хорошо, поймите еще одно - готового универсального и волшебного - на одну кнопку - решения нет. Как вариант - разбить данные по столбцам и... Но и там могут оказаться варианты: д.101-107а, или 107/3, кв. 3/1 и пр.пр.
номера домов 001, думаю меня не поймут гоструктуре....
Это всего лишь дополнительный столбец, чтобы по нему отсортировать, после этого его можно скрыть, удалить в конце концов, т.е. не показывать "непонятливой госструктуре"