Sub SFINX78()
' SFINX78
Sheets("27.01.2015").Select
Range("A3:N3").Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Range("A1").Select
ActiveSheet.Paste
Columns("B:B").EntireColumn.AutoFit
Columns("A:N").Select
Columns("A:N").EntireColumn.AutoFit
Range("A1").Select
Sheets("27.01.2015").Select
Range("A4:N4").Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Range("A1").Select
ActiveSheet.Paste
Columns("B:B").EntireColumn.AutoFit
Columns("A:N").Select
Columns("A:N").EntireColumn.AutoFit
Range("A1").Select
End Sub
макрос создаёт 2 страницы для 2-х строк из 1-й страницы
без шапки таблицы и без оформления
ежели кто сможет вместо простого Range("A4:N4").Select
придумать нечто с ЦИКЛОМ и с относительными ссылками
тогда макрос с помощью цикла сам всё сделает
другие макросы и разработки EXCEL на моём сайте
http://kenokeno.ucoz.ru/load