Excel VBA中Like函数匹配含指定内容的单元格时始终不返回True

问题场景 #

使用的测试表为3列结构的基础业务数据：
仅3列数据
代码前置逻辑：

• 获取表格总行数赋值给byteRowCount变量
• 账户名称列索引赋值给byteAcctColNum变量
• 产品列索引赋值给byteProdColNum变量
  核心遍历匹配逻辑如下，目标是筛选同时满足「账户名为Customer 1」「产品列内容包含Information字符串」的行：

For i = 2 To byteRowCount
    
If sh.Cells(i, byteAcctColNum) = "Customer 1" And (CStr(sh.Cells(i, byteProdColNum).Value) Like "*Information*") Then
        boolCust1InfCases = True
End If
Next

故障现象：经逐语句调试在立即窗口验证，即使产品列存在符合要求的内容，(CStr(sh.Cells(i, byteProdColNum).Value) Like "*Information*")的判定结果始终为False，无法命中预期逻辑。

核心原因 #

最常见的诱因是VBA Like运算符默认区分大小写：

• Like运算符的匹配规则受模块头部的Option Compare语句控制
• 未显式声明的情况下，模块默认采用Option Compare Binary比较模式，按照字符二进制编码做精确匹配，只有大小写完全一致才会判定匹配成功
• 如果产品列的目标字符串存在大小写差异（比如全小写information、全大写INFORMATION、大小写错位的iNfOrMaTiOn），就会出现肉眼看内容一致但匹配失败的情况。

其他低概率诱因：

• 列索引变量byteProdColNum赋值错误，实际匹配的不是产品列内容
• 产品列目标单元格存在不可见特殊字符（零宽空格、非打印控制符、全角空格等），实际字符串长度/内容和肉眼看到的Information不一致

修复方法 #

• 方法1（推荐）：在代码所在模块的最顶部（所有Sub、Function过程之前）添加一行声明，让模块内所有字符串比较默认不区分大小写：

Option Compare Text

• 方法2：不修改模块比较规则，将匹配逻辑改为双方统一转大写/小写后再匹配，绕开大小写差异问题：

' 统一转大写后做匹配
If sh.Cells(i, byteAcctColNum) = "Customer 1" And (UCase(CStr(sh.Cells(i, byteProdColNum).Value)) Like "*INFORMATION*") Then

• 额外排查：调试时可在立即窗口打印?sh.Cells(i, byteProdColNum).Column确认取到的是正确的产品列，打印?Len(CStr(sh.Cells(i, byteProdColNum).Value))和Information的标准长度11做对比，排查列号错误、不可见字符问题。

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