Автоматическая группировка

[buk]

В Excel-м файле имеются строчки, которые можно группировать.
Есть ли какой-нибудь макрос, при помощи которого можно автоматически сгруппировать эти строчки. Дело в том, что строчек, которые нужно группировать много, а в ручную группировать лень.

[pashulka]

Нужные строки сгруппировать можно так :

Worksheets(1).Rows("3:5").Rows.Group

Кроме того, если структура таблицы допускает возможность создания структуры, то :

Worksheets(1).Range("A1:C100").AutoOutline

Что касается Вашего вопроса, то для автоматической группировки строк можно воспользоваться событиями рабочего листа/книги, что позволит осуществить задуманное, например, при активации нужной ячейки/диапазона или изменении данных в этих ячейках. Однако, если номера строк известны заранее и меняться не будут, то можно забыть о термине "автоматически" и сгруппировать нужные строки всего один раз.

[buk]

спасибо, за ответ, но это не совсем то.
Мне нужно сделать так: у меня 10 листов и в них уже имеется группировка (сделанная через данные/ группа и структура/группировать).
Дело в том, что для некоторых людей мне нужно отправить без группировки, а для других с группировкой. Поэтому для тех, кому нужно с группировкой, мне нужно пройтись по всем листам и сделать её.
Так вот, мне нужен макрос с помощью которого сгруппируются все нужные строчки. А в макросе : Worksheets(1).Rows("7:41").Rows.Gro up - группировка появляется, но нужно ещё мышкой нажать, чтобы строчки сгруппировалась.

[pashulka]

Для решения этой задачи можно использовать метод ShowLevels объекта Outline, например :

Worksheets(1).Outline.ShowLevels RowLevels:=1

[buk]

Да, спасибо. Это то, что нужно.

[Virtson]

великое спасибо pashulka !
мне тоже пригодилось )