Страницы: 1
RSS
Макрос для подстановки значений через определенное сочетание в пределах одного листа
 
Помогите изменить макрос
Код
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 то что получается с имеющимся макросом
 
Кто-нибудь помогите пожалуйста!
 
И часа не прошло, а Вы уже в крик. Как быстро (на Ваш взгляд) потенциальные помощники должны  решить проблему?
 
Может нужен другой макрос, а этот не подходит для указанной задачи
 
Кросс
http://www.excelworld.ru/forum/10-42748-1
 
Shok, Держите
Код
Sub csg()
    Dim cc As Range
    Dim i&
    With Sheets(2)
        i = 6
        For Each cc In Sheets(1).UsedRange.Rows
            cc.Copy .Cells(i, 5)
               If ((cc.Row - 1) Mod 4) = 0 Then
                  i = i + 11
               Else
                  i = i + 13
               End If
         Next
     End With
End Sub
Страницы: 1
Наверх