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

【问题标题】：VBA : How to count number of rows in filtered column?VBA：如何计算过滤列中的行数？
【发布时间】：2015-08-17 04:50:03
【问题描述】：

我有一个包含四列数据的 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

应用此过滤器后如何查找行数？

【问题讨论】：

标签： excel vba

【解决方案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

【讨论】：