Юрий М - Извините, но вы как полиция в американских боевиках: появились и сказали свое веское слово когда главного злодея уже победил главный герой. Но раз уж вы здесь, будьте любезны почистить тему от постов "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

Спасибо, все заработало. У меня он был в модуле. Перенес его в отдельный.

Путем недолгих манипуляций получился рабочий гибрид ежа с ужом:

Sub Сорт2()
Dim nIndex As Long
   Application.AddCustomList ListArray:=Array("ЦАО", "СВАО", "ВАО", "ЮВАО", "ЮАО", "ЮЗАО", "ЗАО", "СЗАО", "САО", "ЗелАО", "ТиНАО")
   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

При это, по-моему, частично теряет смысл выделенная строка. Как ее можно упростить?

Спасибо, 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

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

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

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

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

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

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

Два дня уже ищу. Такое впечатление складывается, что никто не сортирует свои данные по территориальности. Есть мысль сделать макрос с заменой округов на цифры, сортировкой и последующим возвратом исходных значений. Но это уже крайний вариант.

Религия-то позволяет, раньше так и было (см. последний абзац в первом сообщении темы). Нужно более изящное решение, так как строк на практике больше 300. И проставлять к ним номера несколько муторно. Хотелось-бы использовать макрос, который бы содержал список сортировки в себе или брал его из диапазона ячеек.

Если просто сортировать от А до Я, то отсортирует так: ВАО, ЗАО, ЗелАО, САО, СВАО, СЗАО, ТиНАО
ЦАО, ЮАО, ЮВАО, ЮЗАО.
А нужно, чтобы получилось так: ЦАО, СВАО, ВАО, ЮВАО, ЮАО, ЮЗАО, ЗАО, СЗАО, САО, ЗелАО, ТиНАО

Добрый день! Очень нужна помощь по написанию макроса, который сортирует строки по настраиваемому списку. Собственно, есть таблица, которую нужно отсортировать по значениям двух первых столбцов. Таблица имеет вид:

Округ	Филиал	Показатель1	Показатель2	Показатель...
СВАО	8	45	23	17
ЗАО	2	57	98	11
ЦАО	17	34	89	2

Принцип сортировки нужен следующий: сначала сортируем строки по первому столбцу. Сначала идут все филиалы ЦАО, затем СВАО, ВАО, ЮВАО, ЮАО, ЮЗАО и т.п. Затем сортируем по номеру филиала, по возрастанию. В результате должно получится так:

Округ	Филиал	Показатель1	Показатель2	Показатель...
ЦАО	17	34	89	2
СВАО	8	45	23	17
ЗАО	2	57	98	11

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