自动筛选数据

使用 Range 对象的 AutoFilter 方法，可以实现按各种条件自动筛选数据。

Range.AutoFilter 方法

语法

Range.AutoFilter (Field, Criteria1, Operator, Criteria2, SubField, VisibleDropDown)

参数

XlAutoFilterOperator 常量

返回值

Variant

注解

如果忽略全部参数，此方法仅在指定区域切换自动筛选下拉箭头的显示。

按指定条件自动筛选数据

以下示例对单元格 A1 所在区域进行筛选，筛选字段为第一个字段，条件为“销售部”，VBA 代码如下：

Sub DataFilter()
    ActiveSheet.Range("A1").AutoFilter Field:=1, Criteria1:="销售部", Operator:=xlFilterValues
End Sub

运行效果如下图所示：

多条件筛选

通过多次使用 AutoFilter 方法，可以实现对数据列表的多条件筛选。

以下示例对单元格 A1 所在区域进行多条件筛选，筛选条件为部门为“销售部”，且“工龄“大于等于5且“工龄“小于等于10的记录，VBA 代码如下：

Sub MuliteCriteriaFilter()
    ' 关闭屏幕更新，提高程序运行速度
    Application.ScreenUpdating = False
    With ActiveSheet
        ' 判断工作表是否处于筛选模式，如果是则显示当前筛选列表的所有数据
        If .FilterMode = True Then .ShowAllData
        ' 第一次筛选，筛选第一个字段，条件为"销售部"
        .Range("A1").AutoFilter Field:=1, Criteria1:="销售部"
        ' 第二次筛选，筛选第三个字段，条件为 >=5 且 <=10 
        .Range("A1").AutoFilter Field:=3, Criteria1:=">=5", Operator:=xlAnd, Criteria2:="<=10"
    End With
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
End Sub

运行效果如下图所示：

统计符合筛选条件的记录数

上例的程序执行完毕后，在状态栏中将显示“在 13 条记录中找到 2 个”，如果要统计符合筛选条件的记录数可以使用如下 VBA 代码：

Sub CountFilterRecord()
    Dim rngRange As Range
    Dim i As Long
    Dim lngCount As Long
    Dim lngAllCount As Long
    With ActiveSheet
        If .FilterMode Then
            ' 获取筛选区域的记录总数
            lngAllCount = .AutoFilter.Range.Rows.Count - 1
            ' 获取筛选后的可视筛选区域
            Set rngRange = .AutoFilter.Range.SpecialCells(xlCellTypeVisible)
            ' 循环筛选区域
            For i = 1 To rngRange.Areas.Count
                ' 累计每个区域（连续单元格区域）的记录数
                lngCount = lngCount + rngRange.Areas(i).Rows.Count
            Next i
            Set rngRange = Nothing
            ' 筛选记录总数要除去第一行表头
            MsgBox "在 " & lngAllCount & " 条记录中找到 " & lngCount - 1 & " 个"
        End If
    End With
End Sub

运行效果如下图所示：

判断筛选结果是否为空

如果筛选记录总数为0，则表示筛选结果为空。如果需要判断筛选结果是否为空，可以使用如下 VBA 代码：

Sub FilterIsEmpty()
    With ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
        ' 如果自动筛选结果区域只有1个，且该区域总行数为1行，说明筛选结果为空。
        If .Areas.Count = 1 And .Rows.Count = 1 Then
            MsgBox "筛选结果为空"
        End If
    End With
End Sub

复制自动筛后的数据

如果需要将自动筛选的结果复制到工作表中的其他位置，可以使用 Range 对象的 Copy 方法。

以下示例将活动工作表中自动筛选的结果区域复制到工作表“Sheet2”中单元格 A1 起始的单元格区域。

Sub CopyFilterResult()
    With ActiveSheet
        If .FilterMode Then
            .AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Worksheets("Sheet2").Range("A1")
        End If
    End With
End Sub

其中 AutoFilter 对象的 Range 属性返回工作表的自动筛选列表区域，SpecialCells(xlCellTypeVisible) 方法获取该列表区域中的可见单元格，即得到筛选结果的单元格区域，最后使用 Copy 方法将结果区域复制到工作表“Sheet2”中。