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