如何在Excel中取得自動篩選后的記錄數

當我們在Excel中進行自動篩選后，有時需要知道篩選后所保留的行（記錄）數�？梢杂孟旅娴膸追N方法：

??? 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會在消息框中給出篩選后的記錄數，注意該記錄數不包括標題行。