VBA: горизонтальное и вертикальное перемещение с использованием петель для динамических диапазонов

Question

Я должен рассчитать среднее или суммарное или стандартное отклонение или .. из 10 записей в столбце, скажем, D3: D12 и заполнить строку до столбца Z. enter image description here

часть 1: -

Sub hg() 
Dim i As Long 
Range("D13").Select 
Do Until i = 20 
i = i + 1 
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-10]C:R[-1]C)" 
Cells(ActiveCell.Row, ActiveCell.Column + 1).Select 
Loop 
End Sub 

Это я закодированы. Есть ли способ легко перетащить боковые пути?

Мне нужно продолжить это снова в 28-й строке, 43-й строке & так далее с разницей в 15 рядов.

То, что я мог думать о добавляет Часть вторая: -

Sub hg() 
Dim i As Long 
Range("D13").Select 
Do Until i = 20 
i = i + 1 
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-10]C:R[-1]C)" 
Cells(ActiveCell.Row, ActiveCell.Column + 1).Select 
Loop 
Cells(ActiveCell.Row + 15, ActiveCell.Column - 20).Select 
End Sub 

Который направляет к 28-й строке, но не работает, чтобы заполнить вдоль этой строки. Я не могу направить вертикальное движение.

Я не серьезный кодер, но очень заинтересован в том, чтобы учиться. Пожалуйста, помогите заполнить по вертикали.

Answer 1

Вы можете использовать смещения() и цикл шаговый 15 строк на каждой итерации

Sub hg() 
    Dim i As Long`enter code here` 

    For i = 13 To 43 Step 15 '<--| change 43 to your actual last row to populate with formula 
     Range("D1:Z1").Offset(i-1).FormulaR1C1 = "=AVERAGE(R[-10]C:R[-1]C)" 
    Next 
End Sub