如何修改VBA代码实现反向过滤：排除Exmpt_Cust范围账号

没问题，我帮你调整代码实现反向筛选——也就是排除Exmpt_Cust区域里的所有账号，只显示剩下的条目。

原来的代码是直接筛选出匹配列表的内容，我们只需要改动筛选条件的参数就能实现你要的逻辑，修改后的完整代码如下：

Sub Below_Min_()
' 
' Below_Min_Macro - 已修改为排除指定账号
' 
    Sheets("Order").Select
    Range("B3").Select
    
    Dim ar As Variant
    ar = Range("Exmpt_Cust")
    ar = Application.Transpose(ar)
    ar = Split(Join(ar, ","), ",")
    
    ' 核心修改：添加不等于前缀，实现排除列表内账号的筛选
    Range("G6", Range("G" & Rows.Count).End(xlUp)).AutoFilter _
        Field:=1, _
        Criteria1:=Array("<>", ar), _
        Operator:=xlFilterValues
End Sub

关键改动解释 #

这里的核心变化是把原来的单一条件ar改成了Array("<>", ar)，同时保留xlFilterValues操作符：

• "<>"是Excel筛选里的「不等于」标识
• 搭配数组使用时，这个组合会告诉Excel：筛选出所有不在ar数组（也就是Exmpt_Cust区域的账号）里的内容

额外注意事项 #

• 请确保Exmpt_Cust命名区域里没有空白单元格，否则可能会导致筛选出奇怪的结果。如果区域里有空值，可以在转换数组前加一段逻辑清理空元素。
• 这个写法适用于Excel 2016及以后的版本，旧版本可能需要用其他方式实现，但目前大部分用户的环境都支持这个语法。

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