对不规则排序的项目的数据进行累计

沙尘暴1967

求大神帮助，多谢知道！

良良

D2=SUMIF(B$2:B2,"A",C$2:C2)

沙尘暴1967

良良 发表于 2023-5-28 15:44
D2=SUMIF(B$2:B2,"A",C$2:C2)

感激不尽，找了好久，还是这里人才济济，祝你健康！

nonlinear

Option Explicit Private Sub OptionButton1_Click() Dim cells1row, cells1column, fakeval1, i, lastrow As Integer Dim cells1 As Range lastrow = Cells(2, 1).End(xlDown).Row For Each cells1 In Range("B2:B" & lastrow)    cells1row = cells1.Row    cells1column = cells1.Column    fakeval1 = 0    For i = cells1row - 1 To 1 Step -1       If Cells(i, 2) = cells1 Then         fakeval1 = Cells(i, 4)         Exit For       End If    Next i    Cells(cells1row, 4) = Cells(cells1row, 3) + fakeval1 Next cells1        End Sub