VBA：如何计算筛选列中的行数？

Question

我有一张包含四列数据的Excel表格。

我已将自动过滤器应用于第二列。现在我想计算应用过滤器后的行数。

以下是用于应用自动过滤器的代码：

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

应用过滤器后如何计算可见单元格。

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