VBA InStr函数子串判断异常：含空格长字符串匹配失效问题

你的问题我碰到过不少次，主要是两个核心点导致的：循环逻辑的漏洞，以及InStr默认的严格匹配规则。下面一步步给你拆解和修复：

1. 先把循环逻辑的坑填上 #

你现在的循环是逐个交叉检查T(i)和C(i)，这会导致匹配结果被后续循环覆盖的问题。比如如果Fixture同时符合C(1)和T(2)，循环到i=1时会设为Compact，但i=2时又会改成Linear，这大概率不是你想要的优先级。

正确的逻辑应该是先把所有Linear的选项检查完，确定没匹配到再去查Compact的选项，而且匹配到就立刻跳出循环，避免无用的遍历：

' 先初始化变量，避免残留值干扰
ERP_Lamp = ""

' 优先检查Linear Fluorescent的所有选项
For i = 1 To 3
    If InStr(1, Fixture, T(i), vbTextCompare) > 0 Then
        ERP_Lamp = "Linear Fluorescent"
        Exit For ' 匹配到就停，不用再查后面的
    End If
Next

' 如果没找到Linear的匹配，再查Compact的
If ERP_Lamp = "" Then
    For i = 1 To 3
        If InStr(1, Fixture, C(i), vbTextCompare) > 0 Then
            ERP_Lamp = "Compact Fluorescent"
            Exit For
        End If
    Next
End If

2. 解决InStr对空格的严格匹配问题 #

默认情况下，InStr用的是二进制比较模式，这种模式下会严格区分空格的数量、半角/全角空格，甚至大小写。如果你的Fixture是长字符串，里面有多个连续空格，或者不小心混入了全角空格，就会和数组里的单个半角空格匹配失败。

解决这个问题有两个步骤：

第一步：统一字符串的空格格式 #

写一个小函数，把字符串里的多个连续空格换成单个，同时去掉首尾的空格：

Function NormalizeSpaces(inputStr As String) As String
    ' 循环替换多个空格为单个
    Do While InStr(inputStr, "  ") > 0
        inputStr = Replace(inputStr, "  ", " ")
    Loop
    ' 去除首尾空格
    NormalizeSpaces = Trim(inputStr)
End Function

第二步：用文本比较模式做匹配 #

在InStr里显式指定vbTextCompare参数，同时对Fixture和目标字符串都做空格规范化：

Dim cleanFixture As String
cleanFixture = NormalizeSpaces(Fixture)

ERP_Lamp = ""

' 检查Linear Fluorescent
For i = 1 To 3
    If InStr(1, cleanFixture, NormalizeSpaces(T(i)), vbTextCompare) > 0 Then
        ERP_Lamp = "Linear Fluorescent"
        Exit For
    End If
Next

' 检查Compact Fluorescent
If ERP_Lamp = "" Then
    For i = 1 To 3
        If InStr(1, cleanFixture, NormalizeSpaces(C(i)), vbTextCompare) > 0 Then
            ERP_Lamp = "Compact Fluorescent"
            Exit For
        End If
    Next
End If

3. 排查隐藏的非打印字符 #

如果上面的方法还是不行，那大概率是字符串里有看不见的非打印字符（比如制表符、换行符）。你可以用这段代码把Fixture的每个字符的ASCII码打出来看看：

For j = 1 To Len(Fixture)
    Debug.Print "第" & j & "个字符ASCII码：" & Asc(Mid(Fixture, j, 1))
Next

半角空格的ASCII码是32，制表符是9，全角空格是12288。如果发现异常的编码，在NormalizeSpaces函数里加上对应的替换逻辑就行，比如：

inputStr = Replace(inputStr, vbTab, " ") ' 把制表符换成空格
inputStr = Replace(inputStr, Chr(12288), " ") ' 把全角空格换成半角空格

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