如何修改VBA代码实现基于单元格值同时筛选两列数据

以下是调整后的代码，可实现基于两个单元格的双列筛选（匹配第1列的"blue"、第2列的"big"）：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 监听C2（第1列筛选条件）或D2（第2列筛选条件）的变化
    If Target.Address = Range("C2").Address Or Target.Address = Range("D2").Address Then
        ' 清除现有筛选，避免叠加异常
        If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
        ' 执行高级筛选：数据区域为A1开始的当前数据集，条件区域包含两列标题与对应条件
        Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("C1:D2")
    End If
End Sub

关键改动说明 #

• 触发范围扩展：从仅监听C2改为同时监听C2和D2，修改任一筛选条件时都会触发筛选
• 条件区域调整：将CriteriaRange设为C1:D2，需保证：
  • C1与数据第1列（如A列）的标题完全一致，D1与数据第2列（如B列）的标题完全一致
  • C2填入第1列筛选值（如"blue"），D2填入第2列筛选值（如"big"）
• 新增筛选清除：执行新筛选前先清除原有筛选，避免多次筛选导致的结果混乱

配置注意事项 #

• 数据区域需从A1开始，包含明确的标题行
• 条件区域的标题与数据区域标题必须完全匹配（大小写、空格均需一致）
• 若你的条件单元格或数据区域位置不同，直接修改代码中的单元格引用即可

内容的提问来源于stack exchange，提问作者ije