Сортировка внутри группировки не сортирует второй уровень

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

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

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

leon9021

Дата: Вторник, 31.08.2021, 22:18 | Сообщение № 1

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

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

Сообщений: 3

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

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

Помогите пожалуйста.
Группирую вручную строки, после этого делаю сортировку по одному столбцу, он сортирует только верхний уровень, можно ли следать как-то чтобы он сортировал и внутри каждый уровень тоже?
Исходная таблица
+ ! текст 1 ! 6
текст уровень 1.1 ! 3
текст уровень 1.2 ! 1
текст уровень 1.1 ! 2
+ ! текст 2 ! 4
текст уровень 1.1 ! 3
текст уровень 1.2 ! 2
текст уровень 1.1 ! 1

нужно чтобы после сортировки было

+ ! текст 2 ! 4
текст уровень 1.1 ! 1
текст уровень 1.2 ! 2
текст уровень 1.1 ! 3
+ ! текст 1 ! 6
текст уровень 1.1 ! 1
текст уровень 1.2 ! 2
текст уровень 1.1 ! 3

сортировка по второй колонке нужна с учетом вложенности

Подскажите, пожалуйста

Ответить

Serge_007

Дата: Среда, 01.09.2021, 09:06 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Здравствуйте

Добавьте столбец с индексами и сортируйте как Вам необходимо

ЮMoney:41001419691823 | WMR:126292472390

Ответить

leon9021

Дата: Среда, 01.09.2021, 12:12 | Сообщение № 3

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

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

Сообщений: 3

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

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

Можно попросить пример.

У меня при группировке он впринципе сортирует только верхний уровень группировки

Сейчас после сортировки по второму столбцу так:

+ ! текст 2 ! 4
текст уровень 1.1 ! 3
текст уровень 1.2 ! 1
текст уровень 1.1 ! 2
+ ! текст 1 ! 6
текст уровень 1.1 ! 3
текст уровень 1.2 ! 2
текст уровень 1.1 ! 1

Сообщение отредактировал leon9021 - Среда, 01.09.2021, 12:13

Ответить

китин

Дата: Среда, 01.09.2021, 12:14 | Сообщение № 4

Группа: Модераторы

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

Сообщений: 7014

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

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

Excel 2007;2010;2016

Цитата leon9021, 01.09.2021 в 12:12, в сообщении № 3 (

)

Можно попросить пример.

серьезно? за вас исчё и таблицу придумать, решить ваш вопрос и вам его в рот положить?

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Serge_007

Дата: Среда, 01.09.2021, 13:09 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Цитата leon9021, 01.09.2021 в 12:12, в сообщении № 3 (

)

Можно попросить пример

Можно. Просите
Но сначала правила форума почитайте

ЮMoney:41001419691823 | WMR:126292472390

Ответить

leon9021

Дата: Среда, 01.09.2021, 16:42 | Сообщение № 6

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

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

Сообщений: 3

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

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

Я прошу прошение, никого не хотел обижать и просить чего-то сверх допустимого форумом.
Приложил файл, который демонстрирует что сортируется только верхний уровень

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

Ответить

NikitaDvorets

Дата: Пятница, 03.09.2021, 11:35 | Сообщение № 7

Группа: Авторы

Ранг: Ветеран

Сообщений: 557

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

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

Excel 2019

leon9021,

Цитата

Приложил файл, который демонстрирует что сортируется только верхний уровень

Похоже, файл демонстрирует, что Вы не воспользовались подсказкой:

Код

Добавьте столбец с индексами и сортируйте как Вам необходимо

напр., индексы 1, 1.1, и т.п.

Ответить

RAN

Дата: Суббота, 04.09.2021, 09:26 | Сообщение № 8

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

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

Сообщений: 5660

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

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

2010

[vba]

Код

Sub qq()
    Dim lr&, i&
    Static sortord&
    Dim start&, end_&
    '    If sortord <> 2 Then sortord = 2 Else sortord = 1
    sortord = 1
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    Range("A2:A" & lr).Sort Range("A1"), sortord, Header:=xlNo
    For i = 2 To lr
        If Rows(i).OutlineLevel = 2 And Rows(i - 1).OutlineLevel = 1 Then start = i
        If start > 0 And Rows(i).OutlineLevel = 1 And Rows(i - 1).OutlineLevel = 2 Then end_ = i - 1
        If i = lr Then end_ = i
        If start > 0 And end_ > 0 Then
            Range("A" & start & ":B" & end_).Sort Range("B" & start), sortord, Header:=xlNo
            start = 0: end_ = 0
        End If
    Next
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Страница 1 из 1
1