excel筛选后如何统计有多少行

在Excel中，筛选后的行数统计可以通过以下几种方法实现：

方法一：使用内置的计数功能

1. 确保你的数据已经被筛选。

2. 选择一个空白单元格。

3. 输入公式 `=COUNTA(筛选区域)`。`COUNTA` 函数会计算区域中非空单元格的数量。

方法二：使用Excel的“条件格式”功能

1. 选中你想要筛选的列。

2. 点击“开始”选项卡。

3. 在“条件格式”组中，选择“新建规则”。

4. 在弹出的对话框中，选择“使用公式确定要设置的格式”。

5. 在“格式值等于以下公式时”输入框中输入 `=$A$1=$A$2`（这里假设你筛选的依据是A列的值），然后点击确定。

6. 现在筛选后的行会被突出显示。

7. 在“开始”选项卡中，点击“计数”按钮，即可得到筛选后的行数。

方法三：使用“快速分析”功能

1. 选中你筛选后的数据区域。

2. 点击“数据”选项卡。

3. 在“分析”组中，点击“快速分析”。

4. 在弹出的窗口中，选择“统计”。

5. 窗口会显示筛选后的行数。

方法四：使用VBA宏

如果你经常需要做这样的操作，可以考虑使用VBA宏来自动化这个过程。

```vba

Sub CountFilteredRows()

Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你的工作表名称

' 筛选前的行数

Dim beforeFilter As Long

beforeFilter = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

' 应用筛选

ws.Range("A1").AutoFilter Field:=1, Criteria1:="筛选条件" ' 修改为你的筛选条件

' 筛选后的行数

Dim afterFilter As Long

afterFilter = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

' 输出结果

MsgBox "筛选前有 " & beforeFilter & " 行，筛选后有 " & afterFilter & " 行。"

' 取消筛选

ws.AutoFilterMode = False

End Sub

```

在Excel中插入一个新的模块，并将上述代码粘贴进去。运行宏，你会在弹出的消息框中看到筛选前后的行数。