在VBA中使用AdvancedFilter时，有没有使用“不等于”的方法？

Sub AdvancedFilterNotEqual()
    Dim rngCriteria As Range
    Dim rngData As Range
    Dim rngFiltered As Range
    
    ' 设置筛选条件范围
    Set rngCriteria = Range("A1:A2")
    
    ' 设置数据范围
    Set rngData = Range("B1:B10")
    
    ' 执行筛选
    rngData.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=rngCriteria, _
        Unique:=False
    
    ' 获取筛选结果
    Set rngFiltered = rngData.SpecialCells(xlCellTypeVisible)
    
    ' 输出筛选结果
    MsgBox rngFiltered.Address
End Sub