設定條件加總

play1215 wrote:
EX:條件H欄位5 可以自動幫我加總F前5欄位:5+9+4+11+7=36

Sub test()

    With Sheets("工作表1")
        lastrow = .Range("b" & Rows.Count).End(xlUp).Row
        For i = lastrow To 2 Step -1
            For j = 1 To .Range("b" & i - 1) - 1
                .Range("b" & i).Insert Shift:=xlDown
            Next j
        Next i
    End With
    
End Sub