當我們在Excel中進行自動篩選后,有時需要知道篩選后所保留的行(記錄)數。可以用下面的幾種方法:
1.直接在任務欄中查看:
當進行自動篩選后,Excel任務欄的左下角可以看到類似下圖所示的提示:
還可以選擇篩選區域中的某一列,選擇時不包括標題行,可以在任務欄的右邊看到類似“計數=2”的字樣。要在任務欄中顯示計數數量,先必需鼠標右擊任務欄,在彈出的快捷菜單中選擇“計數”。
2.使用SUBTOTAL函數:
假如要在A1:A50區域中進行篩選,第一行為標題行,可以用下面的公式獲取篩選后的記錄數:
=SUBTOTAL(3,A2:A50)
其中第一個參數3指定用COUNTA函數進行分類匯總。
3.使用VBA代碼:
還可以用VBA代碼來獲取篩選后的記錄數,代碼如下:
Sub Filter_Return()
Selection.CurrentRegion.Select
‘確定選擇區域中除標題外的總行數
TotalRows = Selection.Rows.Count – 1
DispRows = 0
HideRows = 0
While Not IsEmpty(ActiveCell)
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會在消息框中給出篩選后的記錄數,注意該記錄數不包括標題行。