在VBA中应用过滤器后返回零行

Question

我有5列，当我在字段1和2上应用过滤器时，它会根据条件返回不同的行数。 我使用以下代码

numberOfRows = Range(Selection, Selection.End(xlDown)).SpecialCells(xlCellTypeVisible).Count - 1

但是当返回0行时，这不起作用。它给出了100万个奇数作为答案。 我该如何处理？

Answer 1

试试这个：

numberOfRows = Range(Selection, Selection.End(xlUp)).SpecialCells(xlCellTypeVisible).Count - 1