Excel VBA - 计算过滤表的行数。 继续得到 4 而不是 0

Question

我在过滤表格后尝试计算行数，但一直得到 4 而不是 0。所以我不确定我在哪里弄错了代码？

Sub Test_filter()

' Test_filter Macro

    Rows("4:4").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$4:$F$53").AutoFilter Field:=6, Criteria1:="14,982"
    Range("M54") = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Rows.Count

End Sub

当我过滤结果时，即使我看到 0 行，但它一直给我 4 计数的行。 所以我不知道为什么？

Answer 1

您正在使用使用的范围进行计数。 更改为过滤范围，例如

Range("M54") = ActiveSheet.Range("$A$4:$F$53").SpecialCells(xlCellTypeVisible).Rows.Count

减去 1 以删除标题。

Answer 2

谢谢QHarr。 它工作得很好。 如果我尝试为文件夹中的其他文件循环此代码，有没有办法概括过滤范围，以便它可以应用于具有不同大小表格的不同工作簿？