使用基于应用的过滤器的数据计算行/单元的数量

Question

如何根据应用的过滤器计算包含数据的行数？

我所能找到的只是xlUp, xlDown我不能应用的方法,因为它会给我最后一行而不是带有过滤数据的行数.

例

1    animal age
2    dog    10
3    cat    15

我在cat上应用过滤器并获得下表:

1    animal age
3    cat    15

使用xlUp或者它会告诉我最后一行数是3,但显然只有1行有过滤数据

Answer 1

工作表的SUBTOTAL函数可以计算列中的可见数据.

dim i as long
i = application.subtotal(103, columns(1))
debug.print i