用 VBA 自动筛选：从录制到代码，一个可复用的工作流

VBA 自动筛选的核心价值在于：把鼠标点击菜单的动作转化为一行可重复执行的代码。你不需要成为编程高手就能上手，只需要理解筛选的逻辑——按某列的值或条件过滤出需要的行——然后让 VBA 代劳。读完本文，你将掌握 4 种筛选写法（录制宏、单条件、多条件、动态变量）、3 种后续操作（复制结果、清除筛选、错误排查），并拿到一条完整的工作流模板。

日常使用中，VBA 自动筛选最适合三种场景：月报自动生成时只保留本月数据、多条件组合筛选后复制粘贴汇总、以及跨工作簿的批量筛选清洗。下面从定位功能到完整示例，拆解每一步。

相关问题：VBA 自动筛选实战案例、VBA 自动筛选完整指南

如果你还不熟悉 Excel 的筛选功能，可以先阅读 Excel 自动筛选的基础操作指南，了解手动筛选的界面与原理。学会手动操作后，再结合拆解 Excel 筛选与排序的组合技巧，能更高效地准备数据清洗工作流。

准备工作：开启开发工具选项卡

在写第一行代码之前，先确认界面：

• Excel 功能区 → 文件 → 选项 → 自定义功能区 → 勾选“开发工具”
• 快捷键 Alt+F8 打开宏对话框，Alt+F11 进入 VBA 编辑器
• 安全设置：建议在开发期间将宏安全性设为“启用所有宏”（仅在可信任的工作簿中使用）

关于 VBA 运行的安全注意事项，可以参考设置 Excel 宏安全级别的完整步骤。另外，如果你需要批量处理多个工作簿，请参见 Excel 批量处理宏的框架模板来搭建更稳健的自动化流程。

示例数据集

假设手上有这样一张销售表（Sheet1），A1:E50 范围内：

日期	区域	产品	金额	负责人
2025-01-05	华东	A001	32000	张三
2025-02-12	华北	B002	18500	李四
2025-02-18	华东	A003	41000	王五
2025-03-07	华南	A001	27500	张三

目标：筛选出“华东”区域且金额大于30000的所有记录。这个数据集的特点是：区域列有重复值（华东出现2次），金额列数值跨度大（18500-41000），适合演示单列筛选和多列组合筛选。

三种常用的 VBA 自动筛选写法

1. 录制宏法（最快上手）

手动操作一次筛选，Excel 会生成基础代码：

1. 选中数据区域内任意单元格
2. 数据 → 筛选（或用快捷键 Ctrl+Shift+L）
3. 点击“区域”列筛选下拉，勾选“华东”
4. 点击“金额”列筛选下拉 → 数字筛选 → 大于 → 输入30000
5. 停止录制，查看宏代码

录制的代码大约是这个样子：

Sub 录制筛选华东大额()
    ActiveSheet.Range("A1").CurrentRegion.AutoFilter
    Selection.AutoFilter Field:=2, Criteria1:="华东"
    Selection.AutoFilter Field:=4, Criteria1:=">30000", Operator:=xlAnd
End Sub

录制的代码有两个常见问题：一是使用了 Select 和 Selection（跑起来慢），二是固定了列号（如果表格结构变了会出错）。建议把这段当作起点，再手工优化。例如，将 ActiveSheet 替换为明确的工作表对象 ThisWorkbook.Sheets("Sheet1")，将 Selection 替换为明确的区域范围。

2. 结构化写法（推荐）

Sub 单条件筛选()
    Dim ws As Worksheet
    Dim lastRow As Long
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 先清除可能已存在的筛选状态
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 应用筛选
    ws.Range("A1:E" & lastRow).AutoFilter Field:=2, Criteria1:="华东"
    
    ' 检查是否有可见数据（选做）
    Dim visibleCount As Long
    visibleCount = ws.Range("A2:A" & lastRow).SpecialCells(xlCellTypeVisible).Count
    If visibleCount = 0 Then
        MsgBox "未找到匹配的记录"
    End If
End Sub

关键点说明：

• Set ws 写明确的工作表引用，避免在多表工作簿中出错
• 每次运行前关闭已有筛选（AutoFilterMode = False），防止代码在已筛选的数据上再次筛选导致意外结果
• Field:=2 对应第二列（区域），Excel 从1开始计数
• lastRow 变量动态获取最后行号，避免硬编码50行

这个写法比录制宏更健壮：它不依赖当前选区，直接操作指定工作表；它动态计算数据范围，即使表格行数变化也能正确工作；它包含错误预防（清除已有筛选）和结果验证（检查可见行数）。

3. 多条件组合筛选（And/Or）

Sub 组合筛选()
    Dim ws As Worksheet
    Dim rng As Range
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("A1").CurrentRegion
    
    rng.AutoFilter
    
    ' 第一条件：区域列=华东 OR 华南
    rng.AutoFilter Field:=2, Criteria1:=Array("华东", "华南"), Operator:=xlFilterValues
    
    ' 第二条件：金额大于30000（同时满足，即And关系）
    rng.AutoFilter Field:=4, Criteria1:=">30000", Operator:=xlAnd
End Sub

注意 Operator:=xlAnd 是默认的，不写也生效。但如果想用 OR 逻辑（比如区域是华东或者金额大于50000），VBA 不支持跨列 OR，需要用高级筛选或循环数组方式，这里不展开。关于这种更复杂的筛选场景，可以参考 VBA 高级筛选的进阶用法。

这段代码特别适合需要同时按多个维度过滤的场景。例如，你想看“华东和华南两个区域的销售情况”，但又想指定“只看大额（金额>30000）”——这就是多列 And 逻辑。注意 Array("华东", "华南") 这种写法对文本筛选同时指定多个值非常高效，比逐个条件拼接更简洁。

4. 用变量做动态筛选（进阶）

Sub 动态多条件筛选()
    Dim ws As Worksheet
    Dim targetRegion As String
    Dim minAmount As Currency
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    targetRegion = "华东"        ' 可改为从单元格取值：Range("F1").Value
    minAmount = 30000
    
    ws.Range("A1").CurrentRegion.AutoFilter
    ws.Range("A1").CurrentRegion.AutoFilter Field:=2, Criteria1:=targetRegion
    ws.Range("A1").CurrentRegion.AutoFilter Field:=4, Criteria1:=">" & minAmount
End Sub

这种做法在需要每天换一个筛选条件时很有用：把条件写在 Excel 的某个单元格里，VBA 读取那个单元格的值。改条件时不改代码，只改单元格。例如，你可以在 F1 单元格输入“华南”，然后在代码中用 targetRegion = Range("F1").Value 替换硬编码的“华东”。这样同事只需要修改 F1 单元格就能改变筛选条件，无需打开 VBA 编辑器。

变量驱动的写法还带来了另一个优势：你可以把条件组合成参数表，批量运行多个筛选。比如在 F1:F10 列出 10 个区域名称，然后用循环逐一筛选并导出结果。

筛选后的常用操作

筛选只是第一步，真正省力的是筛选后自动做事的代码。

把筛选结果复制到新表

Sub 筛选并复制结果()
    Dim ws As Worksheet
    Dim destWs As Worksheet
    Dim rng As Range
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set destWs = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    destWs.Name = "筛选结果"
    
    ws.Range("A1").CurrentRegion.AutoFilter Field:=2, Criteria1:="华东"
    ws.Range("A1").CurrentRegion.AutoFilter Field:=4, Criteria1:=">30000"
    
    ' 获取可见区域（不含表头）
    Set rng = ws.Range("A1:E50").SpecialCells(xlCellTypeVisible)
    rng.Copy destWs.Range("A1")
End Sub

这里有个坑：SpecialCells(xlCellTypeVisible) 如果表中只留下表头一行可见（即没有任何数据行匹配），会报错。建议先判断可见行数，或者用 On Error Resume Next 容错。更稳健的做法如下：

Sub 筛选并复制结果_V2()
    Dim ws As Worksheet, destWs As Worksheet
    Dim lastRow As Long, visibleCount As Long
    
    Set