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

當(dāng)我們在Excel中進行自動篩選后，有時需要知道篩選后所保留的行（記錄）數(shù)。可以用下面的幾種方法：

??? 1.直接在任務(wù)欄中查看：

??? 當(dāng)進行自動篩選后，Excel任務(wù)欄的左下角可以看到類似下圖所示的提示：

???

??? 還可以選擇篩選區(qū)域中的某一列，選擇時不包括標(biāo)題行，可以在任務(wù)欄的右邊看到類似“計數(shù)=2”的字樣。要在任務(wù)欄中顯示計數(shù)數(shù)量，先必需鼠標(biāo)右擊任務(wù)欄，在彈出的快捷菜單中選擇“計數(shù)”。

???

??? 2.使用SUBTOTAL函數(shù)：

??? 假如要在A1:A50區(qū)域中進行篩選，第一行為標(biāo)題行，可以用下面的公式獲取篩選后的記錄數(shù)：

??? =SUBTOTAL(3,A2:A50)

??? 其中第一個參數(shù)3指定用COUNTA函數(shù)進行分類匯總。

??? 3.使用VBA代碼：

??? 還可以用VBA代碼來獲取篩選后的記錄數(shù)，代碼如下：

Sub Filter_Return()
??? Selection.CurrentRegion.Select
??? '確定選擇區(qū)域中除標(biāo)題外的總行數(shù)
??? 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 "所選擇的區(qū)域有" & DispRows - 1 & "條記錄"
??? End If
End Sub

??? 使用方法是，選擇篩選區(qū)域中的某個單元格，然后運行代碼，Excel會在消息框中給出篩選后的記錄數(shù)，注意該記錄數(shù)不包括標(biāo)題行。