三、使用SUBTOTAL函数：
如要在A1:A25列区域中进行筛选，可以用以下公式得到筛选的记录数：
=SUBTOTAL(3,A2:A25)
公式中参数3意思是用COUNTA函数进行分类汇总，有关其他参数这里不再多讲，大家可以查看帮助。如下图：
三、使用VBA代码：
用VBA代码来获取筛选后的记录数，代码如下：
Sub Filter_Return() 文章内容由强国说-WPS之家(wps.qiangguoshuo.com)收集于网络，希望能为广大朋友提供帮助。
Selection.CurrentRegion.Select
'确定选择区域中除标题外的总行数
TotalRows = Selection.Rows.Count - 1
DispRows = 0
HideRows = 0
ActiveCell.Offset(1, 0).Select
If ActiveCell.RowHeight = 0 Then
HideRows = HideRows + 1
Else
DispRows = DispRows + 1
End If
Wend
If TotalRows = HideRows Then
MsgBox "未找到任何记录"
Else
MsgBox "所选择的区域有" & DispRows - 1 & "条记录"
End If
End Sub
选择要筛选区域中的某个单元格，然后再运行代码，Excel会在消息框中显示筛选后的记录数。
注意：该记录数不包括标题行。
转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！
