如何用VBA实现筛选指定区域中除0以外的所有动态值？

你当前的代码靠固定数组指定非0值，一旦数据里的非0值新增或减少，宏就会失效。这里给你两种更灵活的实现方法：

方法一：直接使用不等于筛选（最简单高效） #

既然目标是排除所有0，不需要枚举所有非0值，直接用AutoFilter的<>条件就能搞定，不管数据怎么动态变化都能生效：

Sub FilterNonZero()
    Dim targetRange As Range
    Set targetRange = ActiveSheet.Range("$A$11:$P$101")
    
    ' 清除已有筛选（避免重复叠加）
    If targetRange.AutoFilterMode Then
        targetRange.AutoFilter
    End If
    
    ' 筛选第4列中所有不等于0的值
    targetRange.AutoFilter Field:=4, Criteria1:="<>" & 0
End Sub

这个方法代码简洁，不需要维护任何固定值列表，自动适配所有非0数据。

方法二：动态收集非0唯一值后筛选（适合特殊场景） #

如果你的数据里有空白单元格，或者需要严格筛选非0且非空的唯一值，可以先遍历列收集所有符合条件的值，再用数组筛选：

Sub FilterNonZeroDynamic()
    Dim targetRange As Range
    Dim filterCol As Range
    Dim uniqueVals As Collection
    Dim cell As Range
    Dim filterArr() As Variant
    Dim i As Integer
    
    Set targetRange = ActiveSheet.Range("$A$11:$P$101")
    Set filterCol = targetRange.Columns(4)
    Set uniqueVals = New Collection
    
    ' 清除已有筛选
    If targetRange.AutoFilterMode Then
        targetRange.AutoFilter
    End If
    
    ' 遍历列，收集非0的唯一值（忽略空白和重复项）
    On Error Resume Next ' 重复值添加时会报错，直接忽略
    For Each cell In filterCol
        If cell.Value <> 0 And Not IsEmpty(cell.Value) Then
            uniqueVals.Add cell.Value, Key:=CStr(cell.Value)
        End If
    Next cell
    On Error GoTo 0
    
    ' 把集合转成数组
    ReDim filterArr(1 To uniqueVals.Count)
    For i = 1 To uniqueVals.Count
        filterArr(i) = uniqueVals(i)
    Next i
    
    ' 应用筛选（如果有符合条件的值）
    If uniqueVals.Count > 0 Then
        targetRange.AutoFilter Field:=4, Criteria1:=filterArr, Operator:=xlFilterValues
    End If
End Sub

这个方法会自动识别所有当前存在的非0唯一值，适合需要精确控制筛选范围的场景。

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