Alexander A. Manaeff

Sub RowsGroupping()

'
    With Selection
        For I = 1 To .Areas.Count
            Range(.Areas(I).Address).Rows.Group
        Next I
    End With
End Sub

[b][size=150]Задача:[/size][/b]

Имеется рабочая книга (документ) MS Excel с очень длинным списком. Этот список необходимо структурировать вручную, поскольку структура алгоритмизации не поддается.

Обычным способом делать долго: нужно


[list=1][*] выделить только одну группу ячеек


[*] зайти в меню -> [b][i]Данные -> Группа и структура -> Группировать[/i][/b]


[*] в появившемся окне указать, что группировать необходимо по строкам[/list]

Хотелось бы выделить сразу несколько несвязанных диапазонов ячеек и сгруппировать их нажатием одной кнопки, без дополнительных вопросов.


[b][size=150]Решение:[/size][/b]

Для этого пишем макрос и настраиваем новую кнопку в панели инструментов Excel на запуск этого макроса:

[spoiler][code]Sub RowsGroupping()

'
With Selection
For I = 1 To .Areas.Count
Range(.Areas(I).Address).Rows.Group
Next I
End With
End Sub[/code][/spoiler]

Теперь, выделив несколько несвязных диапазонов ячеек:
[spoiler][attachment=1]01.JPG[/attachment][/spoiler]

одним нажатием кнопки получаем сгруппированные строки:
[spoiler][attachment=0]02.JPG[/attachment][/spoiler]