Задача:
Имеется рабочая книга (документ) MS Excel с очень длинным списком. Этот список необходимо структурировать вручную, поскольку структура алгоритмизации не поддается.
Обычным способом делать долго: нужно
-
выделить только одну группу ячеек
-
зайти в меню -> Данные -> Группа и структура -> Группировать
-
в появившемся окне указать, что группировать необходимо по строкам
Хотелось бы выделить сразу несколько несвязанных диапазонов ячеек и сгруппировать их нажатием одной кнопки, без дополнительных вопросов.
Решение:
Для этого пишем макрос и настраиваем новую кнопку в панели инструментов Excel на запуск этого макроса:
Спойлер
Код: Выделить всё
Sub RowsGroupping()
'
With Selection
For I = 1 To .Areas.Count
Range(.Areas(I).Address).Rows.Group
Next I
End With
End Sub
Теперь, выделив несколько несвязных диапазонов ячеек:
Спойлер
одним нажатием кнопки получаем сгруппированные строки: