Excel宏中使用AutoFilter排除Application.InputBox输入条件的问题

你的代码核心问题是排除条件的字符串拼接错误，以及对AutoFilter排除逻辑的用法理解有误，不需要用到高级筛选，修正代码即可解决问题。

错误点分析 #

1. 字符串拼接错误：你写的FilterValue = "<>" 'MyValue'中，'MyValue'被VBA识别为注释，导致FilterValue实际只有"<>"，AutoFilter自然不会按输入的变量值执行排除操作。正确的拼接方式应该用&连接<>和变量。
2. 直接传变量的逻辑错误：单独把myValue传入Criteria1时，AutoFilter默认执行等于该值的筛选，而非排除，必须把<>和变量组合成完整的排除条件字符串。

修正后的代码 #

Sub FilterByCycle()
    Dim ws As Worksheet
    Dim myRange As Range
    Dim myValue As Variant
    Dim FilterValue As String
    
    ' 直接引用工作表，避免使用Select（更稳定）
    Set ws = ThisWorkbook.Sheets("exceptions")
    Set myRange = ws.Range("A1").CurrentRegion
    
    myValue = Application.InputBox("Cycle")
    ' 正确拼接排除条件：将<>与输入值组合
    FilterValue = "<>" & myValue
    
    ' 应用自动筛选，单个条件无需Operator参数
    myRange.AutoFilter Field:=2, Criteria1:=FilterValue
End Sub

关键修改说明 #

• 移除Sheets("exceptions").Select，改用工作表对象直接引用范围，避免因当前工作表切换导致的代码异常。
• 用&运算符将<>和输入变量myValue拼接成完整的排除条件（比如输入"2024"时，FilterValue会变成"<>2024"）。
• 去掉多余的Operator:=xlAnd，单个排除条件无需该参数。

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