Страницы: 1
RSS
Разгруппировать строки и столбцы в VBA
 
Всем доброго утра!

Очень хочется разгруппировать возможно сгруппированные строки и столбцы на листе перед выполнением макроса (сгруппированы или нет - заранее знать не могу), вот только решение приходит в голову, как мне кажется, не совсем оптимальное (кусочек кода ниже).
Если есть возможность написать это компактнее - поделитесь, пожалуйста, идеей - КАК?  :)  
Спасибо!

Код
On Error Resume Next

Worksheets(1).Rows.Ungroup
Worksheets(1).Rows.Ungroup
Worksheets(1).Rows.Ungroup
Worksheets(1).Rows.Ungroup
Worksheets(1).Rows.Ungroup
Worksheets(1).Rows.Ungroup
Worksheets(1).Rows.Ungroup

Worksheets(1).Columns.Ungroup
Worksheets(1).Columns.Ungroup
Worksheets(1).Columns.Ungroup
Worksheets(1).Columns.Ungroup
Worksheets(1).Columns.Ungroup
Worksheets(1).Columns.Ungroup
Worksheets(1).Columns.Ungroup

On Error GoTo 0
В полете голова - важнее крыльев
 
Добрый день. Попробуйте

Код
ActiveSheet.Cells.ClearOutline
 
С наступающим.
 
anvg, спасибо огромное!
Проще простого оказывается :)
В полете голова - важнее крыльев
 
Цитата
написал: ActiveSheet.Cells.ClearOutline
Помогло, спасибо.
И Вас с наступающим. И заодно с восемью наступившими.
Страницы: 1
Читают тему
Наверх