3行の合計を作るアルゴリズムexcel-vba

Question

3つのセルの合計を3番目のセルに入れ、残りの行について同じことを繰り返すアルゴリズムが必要です。

The table i want to have algorithm with code vba

With ws  
    i = .Range("AC9").End(xlDown).Row 
    cumul = 0 

    .Range("AF9").Value = Application.WorksheetFunction.Sum(.Range("AC9:AC" & i))  
End With 

Answer 1

あなたが何をした？この

Sub sums() 
    Dim cell As Range 

    With Worksheets("mySheetname") '<--| change "mySheetname" to your actual sheet name 
     For Each cell In .Range("A2", .Cells(.Rows.count, "A").End(xlUp)) '<--| change "A" references to your actual "Poid_CFA" column index 
      cell.Offset(, 3).Value = WorksheetFunction.Sum(cell.Resize(, 3)) 
     Next 
    End With 
End Sub