累计满足条件的值有多少个

如下表格中，需要统计有几个女的。

使用以下代码：

Private Sub CommandButton1_Click()Dim rs As Integer Range("a1").AutoFilter field:=2, Criteria1:="女" rs = Range("b2", Range("b2").End(xlDown)).SpecialCells(xlCellTypeVisible).Count MsgBox "一共有" & rs & "个"End Sub

以上代码用到了两个知识点。

一个是autofilter，可以理解成自动筛选，field:=2就是第二列进行筛选，Criteria1:="女"指的是条件一为女，当然可以指定更多条件。

筛选之后，只统计可见B2:B列最后一行中可见单元格的数量。就可以知道几个人。

以上代码用于掌握 specialcells(xlcelltypevisible)的用法

下面换一个做法:

Private Sub CommandButton2_Click()Dim rs As Integerrs = Range("b1048576").End(xlUp).RowFor i = 2 To rs If Cells(i, 2) = "女" Then s = s + 1 End IfNext MsgBox sEnd Sub

简单解释一下，从B列第二个单元格到最后一个循环，如果B列对应的值为女，变量加1，最后显示加好之后最后的值。

子曰：用之则行，不用则藏。

意思是说，如果你用我的这些建议，就马上行动，知行合一，如果你不用，就赶紧收藏，以绝后患。