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

Answer 3

用subtotal函数呗

Answer 4

lifk5999xwyr

Answer 5

发个附件（云盘链接什么的）看看。然后才好对应的写。