VBA：如何计算过滤列中的行数？

我有一个包含四列数据的Excel工作表。

我已经将自动filter应用到第二列。 现在我想要计算应用filter后的行数。

以下是用于应用自动filter的代码：

Sub filtered_row_count() Sheets("Sheet1").Select row_count = Application.CountA(Range("B:B")) - 1 'Subtract the header Selection.AutoFilter Field:=2, Criteria1:="cat" End Sub 

如何查找应用此筛选器后的行数？

Answer 1

如何计算应用filter后的可见细胞。

 Sub filtered_row_count() Sheets("Sheet1").Select Selection.AutoFilter Field:=2, Criteria1:="cat" K = Range("B:B").SpecialCells(xlCellTypeVisible).Count CNT2 = Range("B65535").End(xlDown).Row CNT3 = Range("B" & CNT2).End(xlUp).Row Data_Count = (CNT3 + K - 1) - CNT2 MsgBox Data_Count End Sub