本文详细介绍了如何在Excel中使用VBA实现多条件高级筛选，并通过一个具有挑战性的实际案例进行演示。案例中，我们通过一个包含员工信息的表格，展示了如何筛选出满足多个条件的员工数据，例如“部门”为“销售”或“财务”，同时“工资”大于5000且“入职日期”在2020年之后的员工。文章从数据准备、条件设置、VBA代码编写到运行结果分析，逐步讲解了实现过程，并深入解析了代码逻辑和筛选条件的组合方式。通过本文，读者可以掌握如何在VBA中实现复杂的高级筛选，并将其灵活应用到实际工作中，提升数据处理效率。

在Excel中使用VBA创建高级筛选可以帮助你自动化数据筛选过程。下面我们将通过一个详细的示例来说明如何使用VBA实现高级筛选。

示例场景

假设我们有一个包含员工信息的表格，数据如下：

筛选需求：

1. 筛选出“部门”为“销售” 或 “财务”的员工。
2. 同时，筛选出“工资”大于5000 且 “入职日期”在2020年之后的员工。

步骤 1：准备数据

1. 将上述表格输入到Excel的Sheet1中，范围是A1:D9。
2. 在Sheet1中创建一个条件区域（Criteria Range），范围是F1:H3，内容如下：
3. 部门工资入职日期销售>5000>=2020-01-01财务>5000>=2020-01-01
4. 说明：
5. 条件区域的第一行是字段名，必须与数据表中的字段名完全一致。
6. 条件区域的第二行和第三行表示“部门为销售且工资>5000且入职日期>=2020-01-01” 或 “部门为财务且工资>5000且入职日期>=2020-01-01”。

步骤 2：编写VBA代码

1. 打开Excel，按Alt + F11打开VBA编辑器。
2. 在VBA编辑器中，插入一个新的模块（Insert > Module）。
3. 在模块中输入以下VBA代码：

Sub AdvancedFilterMultiCriteria()
    Dim ws As Worksheet
    Dim dataRange As Range
    Dim criteriaRange As Range
    Dim outputRange As Range
    
    ' 设置工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 定义数据范围
    Set dataRange = ws.Range("A1:D9")
    
    ' 定义条件范围
    Set criteriaRange = ws.Range("F1:H3")
    
    ' 定义输出范围
    Set outputRange = ws.Range("J1")
    
    ' 执行高级筛选
    dataRange.AdvancedFilter Action:=xlFilterCopy, _
                             CriteriaRange:=criteriaRange, _
                             CopyToRange:=outputRange, _
                             Unique:=False
End Sub

步骤 3：运行VBA代码

1. 按F5运行代码，或者返回Excel，按Alt + F8。

结果：代码运行后，筛选结果将出现在J1开始的区域中，如下所示：

代码解释

• 数据范围 (dataRange)：
• 原始数据表范围，包括所有员工信息。
• 条件范围 (criteriaRange)：
• 包含多条件的筛选规则。每一行表示一个独立的条件，行与行之间是“或”关系，列与列之间是“且”关系。
• 输出范围 (outputRange)：
• 筛选结果的输出位置。
• AdvancedFilter方法：
• Action:=xlFilterCopy：将筛选结果复制到新的位置。
• CriteriaRange:=criteriaRange：指定条件范围。
• CopyToRange:=outputRange：指定输出范围。
• Unique:=False：允许重复值。

难度点分析

1. 多条件组合：
2. 条件区域中使用了多行条件，表示“或”关系。
3. 每行条件中，字段之间是“且”关系。
4. 日期条件：
5. 在条件区域中，日期需要以Excel可识别的格式输入（如>=2020-01-01）。
6. 动态筛选：
7. 如果需要动态修改条件，可以直接修改条件区域的内容，然后重新运行VBA代码。

通过这个案例，你可以掌握如何在VBA中实现复杂的多条件高级筛选，并将其应用到实际工作中。