使三行之和 excel-vba 的算法

Question

我需要一种算法，将三个单元格相加并将其放在第三个单元格中，并对行的其余部分重复相同的操作。

我想要的表格有代码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