自定义筛选异常：Excel将Contains误判为Ending with

以下是几种可能导致该异常的代码问题：

• 通配符使用不完整
  实现Contains筛选需要在搜索文本前后都添加*通配符，如果只在文本后加*，就会变成匹配"以指定内容结尾"的结果。
  错误代码示例：

  ' 仅结尾加通配符，实际是Ending with逻辑
  ActiveSheet.Range("A1:D100").AutoFilter Field:=1, Criteria1:="*" & txtTitleSearch.Value
  

  修正后代码：

  ' 前后加通配符，实现Contains筛选
  ActiveSheet.Range("A1:D100").AutoFilter Field:=1, Criteria1:="*" & txtTitleSearch.Value & "*"
  

• 筛选运算符参数错误
  如果代码中指定了xlEndsWith作为筛选运算符，即使写了完整通配符，Excel也会强制按"结尾匹配"执行。
  错误代码示例：

  ' 指定了错误的运算符
  ActiveSheet.Range("A1:D100").AutoFilter Field:=1, Criteria1:=txtTitleSearch.Value, Operator:=xlEndsWith
  

  修正后代码：

  ' 依赖通配符实现Contains，不指定特殊运算符
  ActiveSheet.Range("A1:D100").AutoFilter Field:=1, Criteria1:="*" & txtTitleSearch.Value & "*"
  

• 文本框内容未清理
  如果文本框输入的内容带有前导空格、或者被之前的逻辑自动添加了尾部通配符，会导致实际筛选条件变为"内容*"，呈现出Ending with的效果。可以先对输入值做清理：

  Dim cleanText As String
  cleanText = Trim(txtTitleSearch.Value) ' 清除首尾空格
  cleanText = Replace(cleanText, "*", "") ' 移除残留通配符
  ' 再应用正确的筛选逻辑
  ActiveSheet.Range("A1:D100").AutoFilter Field:=1, Criteria1:="*" & cleanText & "*"
  

• 筛选字段索引错误
  如果代码中指定的Field参数不是目标数据列，而目标列的筛选规则被之前的操作干扰，可能会误以为当前筛选逻辑失效。比如要筛选标题列（第2列），却写成了Field:=1，导致实际筛选的是第一列，出现不符合预期的结果。

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