Частичная разгруппировка данных

Пользователь

Сообщений: 160 Регистрация: 04.02.2016

14.11.2018 14:36:41

Добрый день, Ув. форумчане!

Столкнулся с такой проблемой: имеется таблица с данными; данные сгруппированы по строкам; уровней группировки - 3 шт.
Необходимо разгруппировать только уровень №2.

Если выделить все ячейки и нажать "Разгруппировать", разгруппировывается уровень №1, а он как раз и должен остаться.
Если кто-то знает решение, буду очень благодарен за помощь.

Прикрепленные файлы

Файл 1.xls (30 КБ)

Пытливый

Пользователь

Сообщений: 4714 Регистрация: 22.12.2012

14.11.2018 14:55:53

Добрый день.
Выделяете ячейки с В12 по В36, запускаете макрос:

Код
Sub T() Dim objR As Range For Each objR In Selection If objR.EntireRow.OutlineLevel = 2 Then objR.EntireRow.OutlineLevel = 3 End If Next End Sub

Кому решение нужно - тот пример и рисует.

Alexey0185 Пользователь Сообщений: 160 Регистрация: 04.02.2016	#3 14.11.2018 15:04:30 Огромное СПАСИБО, Пытливый! Все работает.

Пытливый Пользователь Сообщений: 4714 Регистрация: 22.12.2012	#4 14.11.2018 15:06:16 Не за что. Маленькая недоработка в коде - надо местами поменять 2 и 3 в 4 и 5 строках кода. Кому решение нужно - тот пример и рисует.