Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Сортировка в рамках нескольких выделенных диапазонов - Мир MS Excel

Старая форма входа
  • Страница 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
 
Ответить
СообщениеЗдравствуйте!
Не могу решить задачу с сортировкой нескольких выделенных разных диапазонов.
Необходимо чтобы все строки в рамках выделенных диапазонов сортировались по столбцу "K" от старых месяцев к новым, как это уже сделано на Скриншоте "1" строки 2-17. Таких диапазонов будет очень много поэтому хотелось бы найти автоматизированное решение задачи.
Спасибо!

Автор - Evgeniy72
Дата добавления - 18.12.2021 в 07:11
Nic70y Дата: Суббота, 18.12.2021, 08:40 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 7733
Репутация: 1856 ±
Замечаний: 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]
К сообщению приложен файл: 4717659.xlsm(21.5 Kb)


ЮMoney 41001841029809
 
Ответить
Сообщениевдруг правильно
[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]

Автор - Nic70y
Дата добавления - 18.12.2021 в 08:40
Evgeniy72 Дата: Суббота, 18.12.2021, 09:44 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

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

Спасибо огромнейшее! Вроде все работает! При детальной проверки конечных таблиц будет точно уже понятно.
 
Ответить
Сообщение
вдруг правильно

Спасибо огромнейшее! Вроде все работает! При детальной проверки конечных таблиц будет точно уже понятно.

Автор - Evgeniy72
Дата добавления - 18.12.2021 в 09:44
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Сортировка в рамках нескольких выделенных диапазонов (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!