写一段VBA筛选求和的代码

Sub FilterAndSum()

Dim lastRow As Long lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

ActiveSheet.Range("A1:C" & lastRow).AutoFilter Field:=3, Criteria1:=">100"

ActiveSheet.Range("D2").Formula = "=SUMIF(C2:C" & lastRow & ","">100"",B2:B" & lastRow & ")"

End Sub

这段代码会筛选出第三列数值大于100的行，然后在D列的第二行求出第二列中对应筛选结果的数值之和。