Tính tổng 3 dòng (1 người xem)

[sep_hatxel]

Mình có bảng tính dữ liệu khoảng 1000 dòng, cần tính tổng của 3 và 4 dòng liên tiếp với số lần tính rất nhiều. Mong GPE giúp đỡ một đoạn code. Xin chân thành cảm ơn rất nhiều ạ!

 

[doveandrose]

muốn là có hết

Public Sub hello()
Dim lr As Long
lr = Sheet1.[A1000000].End(xlUp).Row + 1
For r = 5 To lr Step 5
    Sheet1.Range("A" & r).Resize(, 10).Value = "=sum(R[-4]C:R[-1]C)"
Next
lr = Sheet2.[A1000000].End(xlUp).Row + 1
For r = 4 To lr Step 4
    Sheet2.Range("A" & r).Resize(, 10).Value = "=sum(R[-3]C:R[-1]C)"
Next
End Sub