VBA获取筛选后记录数量

Excel的筛选是一个常用功能，即使是入门不久的小白也会使用。但是在VBA处理数据时，如果工作表中的数据表使用了筛选，那么使用VBA如何知道到底有多少行处于显示状态呢？

如下图数据表中有12行数据（不包括标题行），经过筛选后，在状态条左侧可以轻松地知道：有4条记录符合筛选规则。

下面看看如何使用代码获取筛选后的记录数量。

Sub RowCntAfterFilter1()
    Dim rng As Range
    Dim c As Range
    Dim n As Integer
    Set rng = [a1].CurrentRegion 
    For Each c In rng.SpecialCells(xlCellTypeVisible).Areas
        n = n + c.Rows.Count
    Next c
    MsgBox "筛选后数据行数为：" & n - 1
End Sub

【代码解析】
第5行代码使用CurrentRegion获取当前数据区域，并赋值给对象变量rng。
第6行到第8行代码使用For...Next循环遍历当前数据区域，其中SpecialCells(xlCellTypeVisible)获取可见数据区域，也就是符合筛选添加的数据行。
第6行代码中的Areas也可以使用Rows代替，对于连续的可见行属于同一个Area，因此使用Areas可以减少循环次数，提升代码效率。
第7行代码进行累加计数统计行数。
第9行代码输出结果如下图所示，注意由于数据标题行也包含在CurrentRegion中，因此显示结果时需要使用n - 1。