Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Группировка строк. Копирование первого уровня на новый лист (Макросы/Sub)
Группировка строк. Копирование первого уровня на новый лист
gedonist82 Дата: Среда, 20.05.2020, 21:46 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

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

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

Помогите пожалуйста с макросом, который создаст новый лист и на него скопирует строки только с первого уровня.
 
Ответить
СообщениеДобрый день, форумчане.

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

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

Автор - gedonist82
Дата добавления - 20.05.2020 в 21:46
Pelena Дата: Четверг, 21.05.2020, 08:16 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 15749
Репутация: 3431 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Здравствуйте.
Без файла с примером только общий ответ
[vba]
Код
Public Sub www()
    ActiveSheet.Outline.ShowLevels RowLevels:=1 'сворачиваем до 1 уровня
    ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Copy  'копируем только видимые ячейки
    Worksheets.Add  'добавляем новый лист
    ActiveSheet.Paste   'вставляем на него скопированное
End Sub
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Без файла с примером только общий ответ
[vba]
Код
Public Sub www()
    ActiveSheet.Outline.ShowLevels RowLevels:=1 'сворачиваем до 1 уровня
    ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Copy  'копируем только видимые ячейки
    Worksheets.Add  'добавляем новый лист
    ActiveSheet.Paste   'вставляем на него скопированное
End Sub
[/vba]

Автор - Pelena
Дата добавления - 21.05.2020 в 08:16
gedonist82 Дата: Четверг, 21.05.2020, 12:54 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Да, то что надо.
Спасибо большое!
 
Ответить
СообщениеДа, то что надо.
Спасибо большое!

Автор - gedonist82
Дата добавления - 21.05.2020 в 12:54
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Группировка строк. Копирование первого уровня на новый лист (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!