Question

如何使用vba将excel自动筛选并对筛选的数据列求和？

Answer 1

方法如下：

1.对A：C列数据，按照F:G列条件筛选并在H2中求和：

2.Alt+F11，输入代码如下：

3.F5执行代码，结果如下：

Answer 2

筛选后求和的公式是
=SUBTOTAL(9,B2:B99)

对AB列进行筛选，筛选A列的“a”，并求和的代码如下：
Sub xxx()
ActiveSheet.Range("$A$1:$B$999").AutoFilter Field:=1, Criteria1:="a"
Dim xRng As Range
Set xRng = Range("B2:B999")
MsgBox WorksheetFunction.Subtotal(9, xRng)
End Sub