Расположение по убыванию разных критериев, согласно условию

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Расположение по убыванию разных критериев, согласно условию (Формулы/Formulas)

ПАМ

Дата: Четверг, 11.01.2024, 10:19 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 295

Репутация: 11 ±

Замечаний: 20% ±

Excel 2010, Excel 2016

Доброго времени суток, уважаемые форумчане!
Помогите мне пожалуйста разобраться с такой проблемой:
Мне нужно чтобы моя таблица правильно сортировалась а именно:
Сортировка у всех одна: по убыванию значений столбца D,
а вот сортировать нужно и по улице, дому и квартиры по убыванию, согласно столбцу D. Другими словами мне необходимо сделать несколько доп. таблиц, а именно:
1. сначала по улице (по убыванию столбца D),
2. по № дома
3. по № кв
Дополнительная сложность в том, что таблица разрывная (т.е. несколько строк по середине, не учитывающихся в данной сортировке, а убрать никак).
Поэтому я прошу вас помочь мне пожалуйста разобраться. Возможно, можно просто одну формулу а там исх. данные, что именно сортировать.
Поискав в интернете, я нашел очень интересное про инструмент Сортировка. Возможно пригодится, но сложность, что нужно это сделать формулами, поэтому помогите мне пожалуйста разобраться.

К сообщению приложен файл: 9120419.xlsx (9.5 Kb)

Сообщение отредактировал ПАМ - Четверг, 11.01.2024, 10:20

Ответить

Nic70y

Дата: Четверг, 11.01.2024, 10:44 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

с доп.столбцами

К сообщению приложен файл: 214.xlsx (11.2 Kb)

ЮMoney 41001841029809

Ответить

ПАМ

Дата: Четверг, 11.01.2024, 15:24 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 295

Репутация: 11 ±

Замечаний: 20% ±

Excel 2010, Excel 2016

Nic70y, Здравствуйте! Спасибо огромное! Пока не совсем понятно. Буду разбираться

Ответить

ПАМ

Дата: Четверг, 11.01.2024, 16:10 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 295

Репутация: 11 ±

Замечаний: 20% ±

Excel 2010, Excel 2016

К сожалению, я (в силу собственных слабых знаний) не понимаю решение уважаемого Николая! Поэтому прилагаю пример с примерным решением в ручную. Сложность еще в том, что оригинальная таблица очень большая и данных много больше.

К сообщению приложен файл: 3414685.xlsx (10.3 Kb)

Ответить

Nic70y

Дата: Пятница, 12.01.2024, 08:10 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

ПАМ, я думаю Настраиваемая сортировка проще.
для автоматизации можно написать макрос,
думаю в нем разобраться быстрее чем в формулах
[vba]

Код

Sub u_500()
    'отключаем обновление экрана
    Application.ScreenUpdating = False
    'таблица:
    a = "A"     'левый столбец таблицы
    b = "D"     'правый столбец таблицы
    c = 3       'верхняя строка таблицы
    d = Cells(Rows.Count, a).End(xlUp).Row 'нижняя строка (по левому столбцу)
    'сортировка по:
    'порядок 1=по возрастанию, 2=по убыванию
    'уровень 1
    c_1 = "A"   'столбец
    p_1 = 1     'порядок
    'уровень 2
    c_2 = "D"   'столбец
    p_2 = 2     'порядок
    'сортируем
    Range(a & c & ":" & b & d).Sort _
    key1:=Range(c_1 & c & ":" & c_1 & d), order1:=p_1, Header:=xlNo, _
    key2:=Range(c_2 & c & ":" & c_2 & d), order2:=p_2, Header:=xlNo
    'включаем обновление экрана
    Application.ScreenUpdating = True
End Sub

[/vba]