значения шаг ячейки в Excel через VBA

Question

Я работаю на листе первенствовать и нужно переместить тот же диапазон снова и снова в колонке «P» + 2

Поэтому следующий диапазон будет «C15: G15 "до" P14 ". Я ищу громоздкое решение, чем повторять этот код и изменить диапазоны сотни раз ..

ActiveWindow.SmallScroll Down:=-3 
Range("C13:G13").Copy 
Application.CutCopyMode = False 
Selection.Copy 
Range("P12").Select 
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _ 
    , SkipBlanks:=False, Transpose:=False 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 

Answer 1

Этого быстрый фрагмент должны идти вниз каждую вторую строку в столбце C, начиная со строкой 13 до последнего заселены ячейка в колонке C.

Sub move_CG_to_PT() 
    Dim rw As Long 

    With Worksheets("Sheet4") '<~~set this worksheet reference properly! 
     For rw = 13 To .Cells(.Rows.Count, "C").End(xlUp).Row Step 2 
      .Cells(rw - 1, "P").Resize(1, 5) = _ 
       .Cells(rw, "C").Resize(1, 5).Value 
     Next rw 
    End With 
End Sub 

Это только передает значения. Если форматирование и/или тема имеют решающее значение, тогда их можно настроить следующим образом.

Sub move_CG_to_PT_w_Formatting() 
    Dim rw As Long 

    With Worksheets("Sheet4") '<~~set this worksheet reference properly! 
     For rw = 13 To .Cells(.Rows.Count, "C").End(xlUp).Row Step 2 
      .Cells(rw, "C").Resize(1, 5).Copy _ 
       Destination:=.Cells(rw - 1, "P") 
     Next rw 
    End With 
End Sub