| 楼主 悟空师弟 |
Q：请问自动合计筛选后符合条件的单元格数值，VBA代码怎么写？ A： 筛选后选中任意单元格自动重算A2和B2内的结果。 详见附件：  如何用VBA自动合计筛选后符合条件的单元格数值？.zip代码如下： Private Sub Worksheet_SelectionChange(ByVal target As Range) Dim x As Integer, y As Integer, z For x = 6 To [A65536].End(3).Row If Rows(x).Hidden = True Or Range("E" & x) = "" Then Else y = y + 1 z = Range("D" & x) + z End If Next Range("A2") = y Range("B2") = z End Sub |
| 2楼 eliane_lei |
进来学习，谢谢分享！ |