知识要点

1：.Formula，Range.Formula 属性，返回或设置一个 Variant 值，它代表 A1 样式表示法和宏语言中的对象的公式。

Sub 隔2行求和()

Dim i As Integer

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Step 3 '每隔三行循环一次

'对i行2列的单元格设置求和公式，向前2行求和

Cells(i, 2).Formula = "=sum(c" & i - 2 & ":c" & i - 1 & ")"

Next

End Sub