Добрый вечер Проблема вот в чем: есть три листа по 10 столбцов в каждом, каждый месяц меняется количество строк с данными на листах Надо: 1. либо напечатать эти три листа на 1 листе, а если строк много то на двух на трех и т.д., но Excel печатает каждый лист на отдельном листе 2. либо собрать данные с трех листов на один и уже затем распечатать
Подскажите как можно решить проблему любым способом, т.к таких книг для печати около 100 каждый месяц появляется. Спасибо.
barah, пожалуйста. Кроме того теперь информация копируется с произвольного количества листов с любыми названиями (кром, естесственно, "Общий лист" ) на лист, который, соответственно, называется "Общий лист"
Код
Sub Copyr()
Dim Rw, Rw1 As Long
Rw = 1
Worksheets("Общий лист").Activate
Range(Cells(7, 1), Cells(Cells(Rows.Count, 8).Rows.End(xlUp).Row, 10)).Value = Empty
For Each WS In Worksheets
WS.Activate
If WS.Name <> "Общий лист" Then
Rw1 = Cells(Rows.Count, 8).Rows.End(xlUp).Row
Range(Cells(8, 1), Cells(Rw1, 10)).Copy
Worksheets("Общий лист").Select
Cells(Rw, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rw = Rw + Rw1 - 5
End If
Next WS
End Sub