如何在Excel中按特定文本与数值条件实现自动筛选？

你的代码问题在于两次对同一列调用AutoFilter会完全覆盖前一次的筛选设置，且Excel原生AutoFilter不支持在单一列同时使用xlFilterValues（枚举值匹配）和xlOr（或逻辑）来混合文本枚举与数值范围的条件。要实现「A列是C1/C2/C3其中一个文本，或是大于0的数值」的筛选需求，推荐使用高级筛选（AdvancedFilter），它支持更复杂的多条件逻辑。

方法一：使用高级筛选（推荐） #

高级筛选通过条件区域定义或逻辑，同一列的多个或条件放在不同行即可：

Sub MultiConditionFilter()
    Dim ws As Worksheet
    Dim rngData As Range
    Dim rngCriteria As Range
    
    Set ws = ActiveSheet
    Set rngData = ws.Range("A1:H2000")
    
    ' 清除现有筛选
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 动态创建条件区域（可选择任意空白区域，这里用J列）
    Set rngCriteria = ws.Range("J1:J5")
    ' 条件区域表头需与数据区域A列表头一致
    rngCriteria.Cells(1, 1).Value = ws.Range("A1").Value
    ' 设置或条件：C1、C2、C3、大于0
    rngCriteria.Cells(2, 1).Value = "=C1"
    rngCriteria.Cells(3, 1).Value = "=C2"
    rngCriteria.Cells(4, 1).Value = "=C3"
    rngCriteria.Cells(5, 1).Value = ">0"
    
    ' 执行高级筛选（原地筛选）
    rngData.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=rngCriteria
    
    ' 可选：清理条件区域
    rngCriteria.ClearContents
End Sub

方法二：收集所有符合条件的值后用AutoFilter（仅适合数值范围有限的场景） #

如果A列的大于0的数值数量不多，可以先遍历收集所有符合条件的文本和数值，再用xlFilterValues一次性筛选：

Sub CollectAndFilter()
    Dim ws As Worksheet
    Dim rngData As Range
    Dim cell As Range
    Dim filterArray As Variant
    Dim arrIndex As Integer
    
    Set ws = ActiveSheet
    Set rngData = ws.Range("A2:A2000") ' 跳过表头
    ReDim filterArray(0 To 0)
    arrIndex = 0
    
    ' 清除现有筛选
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 遍历收集符合条件的值
    For Each cell In rngData
        If cell.Value = "C1" Or cell.Value = "C2" Or cell.Value = "C3" Then
            ' 加入文本值
            filterArray(arrIndex) = cell.Value
            arrIndex = arrIndex + 1
            ReDim Preserve filterArray(0 To arrIndex)
        ElseIf IsNumeric(cell.Value) And cell.Value > 0 Then
            ' 加入大于0的数值
            filterArray(arrIndex) = cell.Value
            arrIndex = arrIndex + 1
            ReDim Preserve filterArray(0 To arrIndex)
        End If
    Next cell
    
    ' 去除数组最后一个空元素
    If arrIndex > 0 Then ReDim Preserve filterArray(0 To arrIndex - 1)
    
    ' 执行筛选
    If UBound(filterArray) >= 0 Then
        ws.Range("A1:H2000").AutoFilter Field:=1, Criteria1:=filterArray, Operator:=xlFilterValues
    End If
End Sub

关键说明 #

• 高级筛选更适合复杂条件，无需遍历数据，效率更高；
• 原生AutoFilter的xlFilterValues仅支持单一类型的多值匹配，无法直接混合文本枚举和数值范围的或逻辑；
• 两次调用AutoFilter会覆盖之前的设置，这是你之前代码只生效一个条件的核心原因。

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