3つのセルの合計を作成し、それを3番目のセルに配置し、残りの行で同じことを繰り返すアルゴリズムが必要です。
With ws
i = .Range("AC9").End(xlDown).Row
cumul = 0
.Range("AF9").Value = Application.WorksheetFunction.Sum(.Range("AC9:AC" & i))
End With
これを試して
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
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加