Добрый день.
Прошу помочь в простой задаче по объединению данных с разных листов на один лист.
На всех листах (1, 2, 3 .....N) зафиксирована фиксированная структура столбиков, но наполнение динамическое. Необходимо значения (именно значениями) перенести на лист svod.
Пользовался раньше макросом, но он копирует с формулами.
Буду признателен, если поможете внести корректировки в код, чтобы вставлялись данные значениями.
Спасибо.
Код |
---|
Sub Consolidation()
s_ = Sheets.Count
Sheets.Add After:=Sheets(s_)
For i = 1 To s_
r_ = Sheets(i).Cells.SpecialCells(xlLastCell).Row
Sheets(i).Range("A1", Sheets(i).Cells.SpecialCells(xlLastCell)).Copy Sheets(s_ + 1).Range("a" & n_ + 1)
n_ = n_ + r_
Next
End Sub |