Проблема с нестандартной сортировкой

[Depressive]

Уже задавал вопрос относительно многомерных массивов в VBA и их сортировки. Сейчас пришел к тупику в выбранном пути - требуется что-то иное...

Может, подскажите, делается такая "хитрая" сортировка?

Имеется таблица. В колонке "B" указываются страны (сортируются по алфавиту), в "C" - уникальные числовые идентификаторы (ID) этих стран. В "D" - туристические объекты в этих странах (сорт. по алфавиту), соответственно, в "E" - ID страны, в которой расположен данный объект.
Объекты, не ссылающиеся на ID определенной страны (ID = 0), должны относиться к группе "ПРОЧИЕ" (ID = 999), т.е. находиться в самом конце таблицы.

В конечном итоге таблица должна выглядеть так:


Худо-бедно, соорудил макрос, который выполняет такую нестандартную сортировку. Для этого временно копирую значения ID стран из "E" в "C" и сортирую:

ws.Range(Cells(2, "A"), Cells(LastRow, "H")).SORT _
        Key1:=Range("C2"), Order1:=xlAscending, _
        Key2:=Range("B2"), Order2:=xlAscending, _
        Key3:=Range("D2"), Order3:=xlAscending, _
        Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal

затем удаляю из "C" временные данные.

Теперь, если добавляю новую страну, например "АЛБАНИЯ", присваиваю ей ID = 100 (произвольное значение - больше, чем последний используемый ID) и добавляю объекты в Албании: Тирана, Лежа и Дуррес. То, после сортировки Албания уходит в самый конец таблицы (после Швеции) и теряет последовательную связь со своими городами:


А нужно, чтобы Албания (со своими объектами) сортировалась по алфавиту (между Австрией и Бельгией):


Никак не могу понять, как же выполнить требуемую сортировку...

Заранее благодарю за советы!

[R Dmitry]

Сообщение от Depressive

Уже задавал вопрос относительно многомерных массивов в VBA и их сортировки. Сейчас пришел к тупику в выбранном пути - требуется что-то иное...

Может, подскажите, делается такая "хитрая" сортировка?

Имеется таблица. В колонке "B" указываются страны (сортируются по алфавиту), в "C" - уникальные числовые идентификаторы (ID) этих стран. В "D" - туристические объекты в этих странах (сорт. по алфавиту), соответственно, в "E" - ID страны, в которой расположен данный объект.
Объекты, не ссылающиеся на ID определенной страны (ID = 0), должны относиться к группе "ПРОЧИЕ" (ID = 999), т.е. находиться в самом конце таблицы.

В конечном итоге таблица должна выглядеть так:


Худо-бедно, соорудил макрос, который выполняет такую нестандартную сортировку. Для этого временно копирую значения ID стран из "E" в "C" и сортирую:

ws.Range(Cells(2, "A"), Cells(LastRow, "H")).SORT _
        Key1:=Range("C2"), Order1:=xlAscending, _
        Key2:=Range("B2"), Order2:=xlAscending, _
        Key3:=Range("D2"), Order3:=xlAscending, _
        Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal

затем удаляю из "C" временные данные.

Теперь, если добавляю новую страну, например "АЛБАНИЯ", присваиваю ей ID = 100 (произвольное значение - больше, чем последний используемый ID) и добавляю объекты в Албании: Тирана, Лежа и Дуррес. То, после сортировки Албания уходит в самый конец таблицы (после Швеции) и теряет последовательную связь со своими городами:


А нужно, чтобы Албания (со своими объектами) сортировалась по алфавиту (между Австрией и Бельгией):


Никак не могу понять, как же выполнить требуемую сортировку...

Заранее благодарю за советы!

не знаю для чего это Вам, но сводная таблица похоже Вам подойдет,
на один лист вносите, сводной получаете нужный результат

[Serge 007]

Сообщение от R Dmitry

не знаю для чего это Вам, но сводная таблица похоже Вам подойдет...

Ага, только пустые строки забить значениями. Но это скучно Лучше ведь поломать голову с макросами, наверное?

[nilem]

По совету Сергея поломал голову с макросами
Кнопка Sights сортирует объекты внутри страны, кнопка Countries сортирует страны.

[Depressive]

R Dmitry, спасибо, но я честно не понял, как в данном случае можно использовать сводную таблицу для моего случая сортировки.
Если не трудно, объясните.

Сообщение от R Dmitry

не знаю для чего это Вам, но сводная таблица похоже Вам подойдет,
на один лист вносите, сводной получаете нужный результат

[Depressive]

Nilem, спасибо! Любопытный у Вас код!
Он почти работает... Если какому-либо объекту присваиваем ссылку на страну, сортировка не срабатывает. Например, если городу БАЛЧИК указать, что находится в Болгарии, т.е. поставить "4" в ячейке E346, то она все равно останется в группе "прочие", а не переместиться в 4-ю группу.
Если "скрестить" мою сортировку с Вашей, то вроде бы получается что-то путное

Сообщение от nilem

По совету Сергея поломал голову с макросами
Кнопка Sights сортирует объекты внутри страны, кнопка Countries сортирует страны.

[nilem]

Сообщение от Depressive

Например, если городу БАЛЧИК указать, что находится в Болгарии, т.е. поставить "4" в ячейке E346, то она все равно останется в группе "прочие", а не переместиться в 4-ю группу...

Тогда так, см. файл.
Два последних цикла надо бы объединить - не придумалось

[R Dmitry]

Сообщение от Depressive

R Dmitry, спасибо, но я честно не понял, как в данном случае можно использовать сводную таблицу для моего случая сортировки.
Если не трудно, объясните.

я не поленился и заполнил исходник., смотрите результат сводной

[Depressive]

Сообщение от R Dmitry

я не поленился и заполнил исходник., смотрите результат сводной

Уважаемый R Dmitry, спасибо, идея понятна, но это не совсем то, что требуется.
Надо просто переставить строки в текущей таблице так, чтобы они последовательно сортировались по странам, а внутри страны - по туристическим объектам, и делалось бы это просто одной кнопкой, без всяких дополнительных таблиц...

[Depressive]

Сообщение от nilem

Тогда так, см. файл.
Два последних цикла надо бы объединить - не придумалось

Nilem, огромное спасибо!
Похоже, что все отлично работает! Буду мучить Ваш код дальше