Группировка строк. Копирование первого уровня на новый лист

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Группировка строк. Копирование первого уровня на новый лист - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Группировка строк. Копирование первого уровня на новый лист (Макросы/Sub)

Группировка строк. Копирование первого уровня на новый лист

gedonist82

Дата: Среда, 20.05.2020, 21:46 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

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

Есть эксель в котором шапка и сгруппированные строки по уровням.

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

Ответить

Pelena

Дата: Четверг, 21.05.2020, 08:16 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19404

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Без файла с примером только общий ответ
[vba]

Код

Public Sub www()
    ActiveSheet.Outline.ShowLevels RowLevels:=1 'сворачиваем до 1 уровня
    ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Copy  'копируем только видимые ячейки
    Worksheets.Add  'добавляем новый лист
    ActiveSheet.Paste   'вставляем на него скопированное
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

gedonist82

Дата: Четверг, 21.05.2020, 12:54 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Да, то что надо.
Спасибо большое!

Ответить

Группировка строк. Копирование первого уровня на новый лист (Макросы/Sub)

Страница 1 из 1
1