Доброго времени суток. Есть макрос который компирует все данные из одной книги и собирает их в список в другую.
Надо что бы брал только первый в качестве примера(для быстрого отчёта)
К сожалению своих знаний не хватает что бы исправить код.
Заранее благодарен.
Надо что бы брал только первый в качестве примера(для быстрого отчёта)
К сожалению своих знаний не хватает что бы исправить код.
Код |
---|
Dim ws As Worksheet Set wbReport = ActiveWorkbook Workbooks.Open ("1.xlsx") Set wbCurrent1 = ActiveWorkbook For Each ws In wbCurrent1.Worksheets 'определяем номер последней строки на текущем листе и на листе сборки n = wbReport.Worksheets("Отчёт").Range("A1").CurrentRegion.Rows.Count 'задаем исходный диапазон, который надо скопировать с каждого листа - любой вариант на выбор: Set rngData = ws.Range("A3", ws.Range("A3").SpecialCells(xlCellTypeLastCell)) 'от А3 и до конца листа 'копируем исходный диапазон и вставляем в итоговую книгу со следующей строки rngData.Copy Destination:=wbReport.Worksheets(1).Cells(n + 1, 1) Next ws |