如何用VBA实现基于单元格值的自动筛选非精确匹配？

要实现包含指定数值的筛选，只需在筛选条件前后添加Excel通配符*（代表任意长度的任意字符），修改后的代码如下：

ActiveSheet.Range("$A:$AD").AutoFilter Field:=9, Criteria1:="*" & Range("$I$1").Value & "*"

说明： #

• 原代码直接使用Range("$I$1")作为筛选条件，会触发精确匹配，只有单元格内容和I1完全一致才会被筛选出来。
• 添加"*" & ... & "*"后，会匹配任何包含I1单元格内容的条目，不管目标单元格前后有数字、字母或其他字符，比如1119445113、2201119445113、ST1119445113这类内容都会被筛选出来。

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