Помогите изменить макрос
Нужно в Лист2 подставить данные с Листа1 начиная с 5 строки КАЖДОЙ страницы и через 13 строк в пределах одной страницы. Пример необходимого заполнения я указал в Листе3, а в Листе2 то что получается с имеющимся макросом
Код |
---|
Sub tt() Dim cc As Range Dim i& With Sheets(2) ' .Activate ' ActiveWindow.View = xlPageBreakPreview ' ActiveSheet.ResetAllPageBreaks i = 6 For Each cc In Sheets(1).UsedRange.Rows cc.Copy .Cells(i, 5) i = i + 13 Next End With End Sub |
Нужно в Лист2 подставить данные с Листа1 начиная с 5 строки КАЖДОЙ страницы и через 13 строк в пределах одной страницы. Пример необходимого заполнения я указал в Листе3, а в Листе2 то что получается с имеющимся макросом