Если сами не, то - http://www.planetaexcel.ru/forum/?PAGE_NAME=list&FID=7
Хотя можно и так (см. скрин)...

И что: религия не дает в доп поле перед округами поставить номера/индексы и по ним сортировать?!.

Пишите, заказывайте, как минимум - ищите: сортировка данных макросом при открытии файла... ;(

в 2003-м решается без макросов.
сервис-параметры-списки - создать новый список (ввести вручную или экспортировать из ячеек)
сортировка-параметры-сортировка по первому ключу - выбрать нужный вариант - ок, ок.

где этот функционал прячется в новых версиях - хз.

Да все давно ук... придумано до нас - в любой стране существует индексация территориального и административного деления - от отдельного строения до града стольного...
И свой цифирный столб/поле скройте от глаз и... спите спокойно...  

Меня, в принципе, устроит и код макроса в виде текста, взятый из аналогичной задачи. Думаю, смогу его под себя переделать. Выкладывать файл .xls смысла не вижу: примерный образец таблицы, приведенный в первом сообщении, набивается за 1 минуту. Исходный же файл содержит кучу информации, которая к сути вопроса отношения не имеет.

Я на этом форуме всего час, а у меня создалось стойкое впечатление, что люди здесь зарегистрировались не для того, чтобы делиться опытом, а чтобы поболтать. Буду надеяться, что тема не умрет в потоке бессмысленного флуда и найдется тот, кому моя задача покажется интересной, чтобы ее реализовать на практике.

Извините, что вмешиваюсь, но исключительно из желания вам помочь.
Прочитайте правила форума и сделайте так, как там написано, и вам помогут.
В противном случае, вы еще не один час проведете на форуме, объясняя завсегдатаям, как правильно помогать, но своей цели не достигнете.

В том, что помогут я уже сомневаюсь. Тот, кто достаточно хорошо разбирается в Excel`e, понял-бы все из первого сообщения. Но пусть будет так, в порядке эксперимента выкладываю файл.

На мой взгляд адекватнее макросом переименовать ЦАО в 1, СВАО в 2, ВАО в 3 и т.п., затем отсортировать по возрастанию и переименовать их в обратном порядке. Это позволит избежать дополнительного столбца, позволяет более гибко вносить изменения в таблицу и в конце-концов облегчит сам файл. Но мне думается, что должно быть решение попроще, чтобы критерии сортировки были прописаны в макросе и не было нужды в переименовании значений.

Спасибо, Kuzmich, это как раз то, что я искал. Правда, есть один затык: список сортировки необходимо перенести на другой лист. Пытаюсь это сделать, но получаю ошибку и остановку на 3 строке:
Run-time error '1004'
Компонент с указанным именем не найден.

Sub OrderSort()
Dim nIndex As Long
  Application.AddCustomList ListArray:=Worksheets("Техданные").[i4:i14]
   nIndex = Application.GetCustomListNum(Worksheets("Техданные").Range("I4:I14").Value)
   Range("A5:GG400").Sort Key1:=Range("B5"), Order1:=xlAscending, _
                           Header:=xlNo, Orientation:=xlSortColumns, _
                           OrderCustom:=nIndex + 1
   Range("A5:GG400").Sort Key1:=Range("A5"), Order1:=xlAscending, _
                           Header:=xlNo, Orientation:=xlSortColumns
   Application.DeleteCustomList nIndex
End Sub

Догадываюсь, что проблема в синтаксисе. Но в чем именно?

McQueen, А Вы куда вставили код макроса? Надо в Модуль, в примере был на листе. Добавьте в редакторе VBE модуль и вставьте в него код макроса, и будет он нормально брать данные с указанного листа.

Так и "набили" бы САМИ за минуту!
А вот на "слабо" брать не стоит - не любят здесь такого...

Юрий М - Извините, но вы как полиция в американских боевиках: появились и сказали свое веское слово когда главного злодея уже победил главный герой. Но раз уж вы здесь, будьте любезны почистить тему от постов "Z" и "ikki", как не несущих достаточной смысловой нагрузки и к решению вопроса относящиеся весьма опосредовано.

Kuzmich - Еще раз выражу свою благодарность. Выкладываю окончательный рабочий текст макроса. Думаю, кому-то наверняка еще пригодится:

Sub Сортировка()
Dim nIndex As Long
   Application.AddCustomList ListArray:=Worksheets("Техданные").[i4:i14]
   nIndex = Application.GetCustomListNum(Worksheets("Техданные").Range("I4:I14").Value)
   Range("A5:GG400").Sort Key1:=Range("B5"), Order1:=xlAscending, Key2:=Range("C5"), Order1:=xlAscending, _
                           Header:=xlNo, Orientation:=xlSortColumns, _
                           OrderCustom:=nIndex + 1
   Range("A5:GG400").Sort Key1:=Range("A5"), Order1:=xlAscending, _
                           Header:=xlNo, Orientation:=xlSortColumns
   Application.DeleteCustomList nIndex
End Sub

Igor67 - Спасибо за дельный совет, благодаря вам макрос заработал как надо.

Также выложу свой вариант с переименованием и сортировкой, может кому-то пригодится:

Sub Сортировка()
   Range("A5:A400").Select
   Selection.Replace What:="ЦАО", Replacement:="1", LookAt:=xlPart, _
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
       ReplaceFormat:=False
...
   Range("A5:GG400").Select
   Selection.Sort Key1:=Range("A5"), Order1:=xlAscending, Key2:=Range( _
       "B5"), Order2:=xlAscending, Key3:=Range("C5"), Order3:=xlAscending, _
       Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
       xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
       DataOption3:=xlSortNormal
   Range("A5:A400").Select
   Selection.Replace What:="1", Replacement:="ЦАО", LookAt:=xlPart, _
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
       ReplaceFormat:=False
...
End Sub