Вставка формул в столбцы

[faiza]

Подскажите, плиз, как с помощью VBA написать: В столбец D вставляем формулу1, начиная с определённой ячейки(допустим с 16-й) и до конца таблицы, так через шаг =3; а в столбец Е всавляем формулу2, начиная с определённой ячейки(допустим с 16-й) и до конца таблицы, так через шаг =3.

[SAS888]

Например, так:

Sub InsertFormula()
    Dim i As Long: Application.ScreenUpdating = False
    For i = 16 To Cells(Rows.Count, "D").End(xlUp).Row Step 3: Cells(i, "D").FormulaR1C1 = "=R[-2]C+R[-1]C": Next
    For i = 16 To Cells(Rows.Count, "E").End(xlUp).Row Step 3: Cells(i, "E").FormulaR1C1 = "=R[-2]C*R[-1]C": Next
End Sub