Excel VBA将自动筛选设置为；不含；使用模糊值

大家好，这里的新程序员正在寻求帮助，我在论坛上找不到一些帮助。下面列出的程序非常适合将自动筛选设置为按DateCode=ActiveCell.Text语句进行筛选

Dim DateCode
DateCode = ActiveCell.Text  'For this instant the active cell contains "T-09"

ActiveSheet.Range("$A$1:$T$10000").AutoFilter Field:=1, Criteria1:=DateCode

但是，我希望基于相同的DateCode/dim语句创建一个不包含过滤器

下面的语句是简单宏录制器工具留下的示意图。该语句有效地将筛选器设置为不包含“DateCode”

ActiveSheet.Range（$A$1:$DH$10000”）。自动筛选字段：=4，标准1:_
“*日期代码*”

下面的陈述可以改写为以下内容，并且在第一次使用时可以完美地工作。但问题是，每次执行脚本时，日期代码都会发生变化。在我尝试反转AF标准1的逻辑之前，这不是一个问题：

ActiveSheet.Range("$A$1:$DH$10000").AutoFilter Field:=4, Criteria1:= _
    "<>*T-09*"

ActiveSheet.Range（$A$1:$DH$10000”）。自动筛选字段：=4，标准1:_
“*T-09*”

---

任何帮助都将不胜感激

只需将变量插入Criteria1字符串：

ActiveSheet.Range("$A$1:$DH$10000").AutoFilter Field:=4, Criteria1:="<>*" & DateCode & "*"

ActiveSheet.Range（$A$1:$DH$10000”）。自动筛选字段：=4，标准1:=“*”&日期代码&“*”

ActiveSheet.Range("$A$1:$DH$10000").AutoFilter Field:=4, Criteria1:="<>*" & DateCode & "*"