Добрый день.
Помогите доработать макрос по сборке информации из книги.
Суть такова:
В книге 6 листов, листы 1-3 имеют одну структуру, листы 4-6 другую. Макрос собирает информацию со всех листов в новую книгу. Причем собирает именно те данные, которые были заранее отфильтрованы.
На работу макроса нареканий нет, но прошу помощи добавить пару процедур. Необходимо разделить выходные данные на 2 книги: с листа 1-3 в новую книгу 1, с листа 4-6 в новую книгу 2 (всё в формате .xls)
И можно ли ограничить в макросе диапазон сбора данных до определённого количества столбцов? (пример: с листа 1-3 нужны только первые 12 столбцов, а с листа 4-6 первые 20)
Макрос:
Помогите доработать макрос по сборке информации из книги.
Суть такова:
В книге 6 листов, листы 1-3 имеют одну структуру, листы 4-6 другую. Макрос собирает информацию со всех листов в новую книгу. Причем собирает именно те данные, которые были заранее отфильтрованы.
На работу макроса нареканий нет, но прошу помощи добавить пару процедур. Необходимо разделить выходные данные на 2 книги: с листа 1-3 в новую книгу 1, с листа 4-6 в новую книгу 2 (всё в формате .xls)
И можно ли ограничить в макросе диапазон сбора данных до определённого количества столбцов? (пример: с листа 1-3 нужны только первые 12 столбцов, а с листа 4-6 первые 20)
Макрос:
Код |
---|
Sub consolidation() s_ = Sheets.Count Workbooks.Add ThisWorkbook.Sheets(1).Range("1:1".Copy ActiveWorkbook.Sheets(1).Range("a1" For i = 1 To s_ r_ = ActiveWorkbook.Sheets(1).Range("a" & Rows.Count).End(xlUp).Row + 1 ThisWorkbook.Sheets(i).Range("a1".CurrentRegion.Offset(1).Copy ActiveWorkbook.Sheets(1).Range("a" & r_) Next End Sub |