Excel VBA实现两列OR逻辑自动筛选问题求助

阿华AIGC实验室

2026-5-20

实现Excel两列OR逻辑筛选的VBA解决方案

嘿，我完全懂你现在的头疼点——你想要筛选出列7等于今日日期或者列9等于今日日期的行，但当前的代码每次设置新筛选都会把之前的覆盖掉，最后只剩列9的筛选结果，根本达不到OR逻辑的效果。别着急，咱们来调整代码，用两种方法都能解决这个问题：

方法一：用高级筛选实现跨列OR逻辑（推荐，无需辅助列）

Excel普通的AutoFilter只能对同一列设置OR条件，跨列的OR逻辑得靠高级筛选来实现。这里我们临时创建一个条件区域，利用高级筛选的规则来达成需求：

Sub Playing_Today_v2()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim criteriaRange As Range
    Dim todayStr As String
    
    ' 用变量代替ActiveSheet，代码更稳定
    Set ws = ActiveSheet
    Set tbl = ws.ListObjects("table1")
    todayStr = CStr(Date)
    
    ' 第一步：创建临时条件区域（选表格外的空白位置，比如A1:B3）
    ' 高级筛选规则：不同行的条件是OR逻辑，同一行是AND逻辑
    ws.Range("A1").Value = tbl.ListColumns(7).Name ' 写入列7的标题
    ws.Range("A2").Value = "=" & todayStr ' 列7等于今日的条件
    ws.Range("B1").Value = tbl.ListColumns(9).Name ' 写入列9的标题
    ws.Range("B3").Value = "=" & todayStr ' 列9等于今日的条件
    Set criteriaRange = ws.Range("A1:B3")
    
    ' 第二步：应用高级筛选，实现OR逻辑筛选
    tbl.Range.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=criteriaRange
    
    ' 可选：如果不想保留临时条件区域，取消下面注释清除内容
    ' criteriaRange.ClearContents
End Sub

关键说明

高级筛选的核心规则：

条件区域的第一行必须是对应列的精确标题，和表格里的列名要完全一致
不同行的条件是OR逻辑，所以我们把列7的条件单独放一行，列9的条件放另一行，就实现了“满足其中一个条件就显示”的效果

方法二：用辅助列实现OR筛选（更直观）

如果你觉得高级筛选的条件区域设置有点绕，也可以添加一个临时辅助列来判断每行是否符合条件：

Sub Playing_Today_v2_Alternative()
    Dim tbl As ListObject
    Dim helperCol As ListColumn
    Dim todayStr As String
    
    Set tbl = ActiveSheet.ListObjects("table1")
    todayStr = CStr(Date)
    
    ' 添加临时辅助列到表格末尾
    Set helperCol = tbl.ListColumns.Add(Position:=tbl.ListColumns.Count + 1)
    helperCol.Name = "今日筛选标记"
    
    ' 在辅助列写入公式，判断列7或列9是否等于今日
    helperCol.DataBodyRange.Formula = _
        "=OR([@[" & tbl.ListColumns(7).Name & "]]=" & todayStr & ", [@[" & tbl.ListColumns(9).Name & "]]=" & todayStr & ")"
    
    ' 筛选辅助列为TRUE的行
    tbl.Range.AutoFilter Field:=helperCol.Index, Criteria1:=True
    
    ' 可选：如果不需要保留辅助列，取消下面注释删除它
    ' helperCol.Delete
End Sub