Excel VBA中如何让InStr函数仅执行精确匹配？

你的问题出在InStr函数的作用是检查子串是否存在，而非判断两个字符串完全相等，所以会出现"Tea"被识别为包含在"Tea & Coffee"中的情况。要实现精确匹配，直接使用字符串全等判断即可：

修改后的代码（不区分大小写） #

If LCase(Sheets("Sheet1").Cells(RowCnt, ColCnt).Value) = LCase(Sheets("Sheet1").Cells(Ecnt, 82).Value) Then
    ' 此处编写匹配后的执行逻辑
End If

可选方案：使用StrComp函数 #

如果偏好专门的字符串比较函数，可使用StrComp，通过参数指定是否区分大小写：

• 不区分大小写：

If StrComp(Sheets("Sheet1").Cells(RowCnt, ColCnt).Value, Sheets("Sheet1").Cells(Ecnt, 82).Value, vbTextCompare) = 0 Then
    ' 匹配逻辑
End If

• 区分大小写：

If StrComp(Sheets("Sheet1").Cells(RowCnt, ColCnt).Value, Sheets("Sheet1").Cells(Ecnt, 82).Value, vbBinaryCompare) = 0 Then
    ' 匹配逻辑
End If

额外注意点 #

• 显式调用.Value更清晰（VBA默认会取单元格Value，但显式书写可避免歧义）
• 若单元格存在首尾空格、隐藏换行等干扰字符，可先用Trim清洗：

If LCase(Trim(Sheets("Sheet1").Cells(RowCnt, ColCnt).Value)) = LCase(Trim(Sheets("Sheet1").Cells(Ecnt, 82).Value)) Then
    ' 匹配逻辑
End If

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