VBA中InStr语句调用State数组值失效问题排查

核心问题 #

你的State数组元素看起来是"TX"，但实际和硬编码的字符串"TX"存在类型或隐形内容差异——大概率是数组元素不是纯字符串类型，或者包含不可见字符（比如空格、换行），导致InStr无法匹配。

直接解决方案 #

方案1：填充数组时强制转为纯字符串

修改你填充State数组的代码，把单元格值强制转成字符串类型：

ElseIf IsEmpty(Cells(i + 2, 1)) Then         
    Names(c) = Names(c - 1)                    
    Hours(c) = Cells(i + 2, 2).Value            
    State(c) = CStr(Cells(i + 2, 4).Value) ' 强制转字符串
    c = c + 1
Else                                                        
    Names(c) = Cells(i + 2, 1)                    
    Hours(c) = Cells(i + 2, 2).Value            
    State(c) = CStr(Cells(i + 2, 4).Value) ' 强制转字符串
    c = c + 1
End If

方案2：判断时统一转字符串

如果不想修改数组填充逻辑，就在InStr判断时，把两边的内容都转成字符串：

If InStr(CStr(Worksheets("Import Spreadsheet").Cells(1, 4).Value), CStr(State(1))) > 0 Then
    ' 你的逻辑代码
End If

额外处理：如果存在不可见字符

如果转字符串后还是不生效，大概率是单元格内容有空格或隐形字符，加上Trim清理：

State(c) = Trim(CStr(Cells(i + 2, 4).Value))

为什么Names数组正常？ #

Names列的单元格本身就是文本格式，VBA读取时直接得到字符串类型；而State列的单元格可能是其他格式（比如自定义格式的代码、或原本是数值类型后来转成文本），虽然显示是"TX"，但VBA读取的是单元格的原始变体值，和硬编码的纯字符串不匹配。

验证方法 #

可以在代码里加两行调试，确认State元素的类型和内容：

Debug.Print "State(1)类型：" & TypeName(State(1))
Debug.Print "State(1)长度：" & Len(State(1))
Debug.Print "硬编码TX长度：" & Len("TX")

如果类型不是String，或者长度大于2，就对应上面的解决方案。

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