Сортировка в рамках нескольких выделенных диапазонов

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Сортировка в рамках нескольких выделенных диапазонов (Формулы/Formulas)

Evgeniy72

Дата: Суббота, 18.12.2021, 07:11 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

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

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

Здравствуйте!
Не могу решить задачу с сортировкой нескольких выделенных разных диапазонов.
Необходимо чтобы все строки в рамках выделенных диапазонов сортировались по столбцу "K" от старых месяцев к новым, как это уже сделано на Скриншоте "1" строки 2-17. Таких диапазонов будет очень много поэтому хотелось бы найти автоматизированное решение задачи.
Спасибо!

К сообщению приложен файл: 4899630.png (114.4 Kb) · 2397397.png (110.3 Kb) · ___.xlsx (12.2 Kb)

Сообщение отредактировал Evgeniy72 - Суббота, 18.12.2021, 07:11

Ответить

Nic70y

Дата: Суббота, 18.12.2021, 08:40 | Сообщение № 2

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

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

Сообщений: 8759

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

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

Excel 2010

вдруг правильно
[vba]

Код

Sub u_17()
    Application.ScreenUpdating = False
    u_1 = Cells(Rows.Count, "k").End(xlUp).Row
    u_2 = Application.CountIf(Range("k2:k" & u_1), "Месяц")
    u_3 = 2
    For u_4 = 1 To u_2
        u_5 = Application.Match("Месяц", Range("k" & u_3 & ":k" & u_1), 0)
        u_6 = u_3 + u_5 - 2
        Range("a" & u_3 & ":r" & u_6).Sort key1:=Range("k" & u_3 & ":k" & u_6), _
            order1:=xlAscending, Header:=xlNo
        u_3 = u_3 + u_5
    Next
    Application.ScreenUpdating = True
End Sub

[/vba]