Excel VBA中使用InStr检查值时如何忽略引号与大小写？

直接通过预处理单元格内容+忽略大小写匹配就能搞定，不用写一堆冗余的OR判断：

核心判断代码 #

' 先剔除单元格内容里的所有双引号，再忽略大小写检查是否包含"A"
If InStr(1, Replace(Cell.Value, Chr(34), ""), "A", vbTextCompare) > 0 Then
    ' 此处写入你需要执行的后续操作
End If

代码细节说明 #

• Replace(Cell.Value, Chr(34), "")：直接把单元格内所有双引号（无论在内容首尾还是中间）替换为空，彻底消除引号的干扰
• InStr的第四个参数vbTextCompare：指定文本比较模式，忽略大小写差异，不管是"A"还是"a"都会被匹配到

完整遍历示例 #

如果需要批量检查某一区域的单元格，完整代码可以参考：

Sub CheckTargetCells()
    Dim Cell As Range
    Dim CheckRange As Range
    
    ' 假设检查Sheet1中A1到A100的单元格
    Set CheckRange = ThisWorkbook.Sheets("Sheet1").Range("A1:A100")
    
    For Each Cell In CheckRange
        If InStr(1, Replace(Cell.Value, Chr(34), ""), "A", vbTextCompare) > 0 Then
            ' 示例操作：将符合条件的单元格填充为黄色
            Cell.Interior.Color = vbYellow
        End If
    Next Cell
End Sub

这个方案能覆盖所有场景：不管单元格内容是A、"A"、a、"a"、xxAxx还是"xxaXX"，都能精准匹配，代码简洁且扩展性强。

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