Доброго времени суток, господа.
Есть такой вот макрос. Он собирает ВСЕ листы книги в один. А есть потребность собирать только выделенные листы. Помогите допилить.
Мб такая тема уже и есть, но я не нашел.
Есть такой вот макрос. Он собирает ВСЕ листы книги в один. А есть потребность собирать только выделенные листы. Помогите допилить.
Мб такая тема уже и есть, но я не нашел.
Код |
---|
Sub Sbor() 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 |