如何使用VBA重复列中的公式？

Question

如何重复列中的公式？公式将前3个月的值加在下一列中的季度，然后应该转到接下来的3个值，依此类推。

你可以帮我吗？谢谢！

1. 76
2. 70
3. 85
4. 91
5. 89
6. 76
7. 80
8. 66
9. 83

Answer 1

Sub sumer()
For i = 1 To 23 Step 3
Range("b" & i + 2).Value = Range("a" & i).Value + Range("a" & i + 1).Value +Range("a" & i + 2).Value
Next i
End Sub

如果这已经回答了您的问题，请告诉我

Answer 2

Sub SumQtr()
Dim lastRow As Long
lastRow = Range("A" & Rows.Count).End(xlUp).Row
    For i = 3 To lastRow Step 3
        Cells(i, 3).Value = Cells(i - 2, 2).Value + Cells(i - 1, 2).Value + Cells(i, 2).Value
    Next
End Sub