Algorithmus, der die Summe von drei Zeilen macht Excel-VBA

Question

Ich brauche einen Algorithmus, der Summe von drei Zellen macht und es in der dritten Zelle, und wiederholt das gleiche für den Rest der Zeile.

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

versuchen, diese

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