计算过滤器vbscript后的行数

Question

我有一张包含数千行数据的Excel表格。应用过滤器后，将在其间过滤一些行。我当前的代码只计算前几个连续的行，即使后面有更多行，计数也会停止。我该如何解决这个问题？

应用过滤器后的行号例如：

1

2

3

7

8

...

计数只会返回3.我使用下面的代码进行行计数。

print "Rows " & objsheet.Usedrange.SpecialCells(xlCellTypeVisible).Rows.Count

Answer 1

蒂姆·威廉姆斯在评论中给出了答案。

objsheet.usedrange.columns(1).specialcells(xlCellTypeVisible).count