Excel VBA中InStr模糊匹配致结果错误，求精确匹配方案

你的问题很典型——因为两个独立的If语句会依次执行，当单元格内容同时符合两个匹配条件时（比如包含"W7ADH"的内容自然也包含"ADH"），后面的判断会覆盖前面的结果。要解决这个问题，核心是让判断逻辑有优先级，匹配到更具体的规则后就不再执行后续判断，或者用精确匹配的方式锁定目标内容。

方案1：用ElseIf设置判断优先级 #

把更具体的匹配规则放在前面，并用ElseIf替代第二个If，这样一旦第一个条件满足，后面的判断就会被跳过，不会覆盖之前的结果。修改后的代码如下：

Sub ConvertComputerNames()
    Dim SrchRng As Range, cel As Range
    Set SrchRng = Range("A2:A200")
    
    For Each cel In SrchRng
        If InStr(1, cel.Value, "W7ADH") Then
            cel.Offset(0, 7).Value = "LTW7ADH"
        ElseIf InStr(1, cel.Value, "ADH") Then
            cel.Offset(0, 7).Value = "LTW10ADH"
        End If
    Next cel
End Sub

这样，当单元格内容包含"W7ADH"时，只会触发第一个条件，不会走到ElseIf的判断，也就不会被覆盖成"LTW10ADH"了。

方案2：精确匹配整个单元格内容（如果需求是完全匹配） #

如果你的需求是单元格内容完全等于某个字符串（而不是包含），可以直接用等于判断替代InStr，这样就不会出现相似值误匹配的问题：

Sub ConvertComputerNames()
    Dim SrchRng As Range, cel As Range
    Set SrchRng = Range("A2:A200")
    
    For Each cel In SrchRng
        If cel.Value = "W7ADH" Then
            cel.Offset(0, 7).Value = "LTW7ADH"
        ElseIf cel.Value = "ADH" Then
            cel.Offset(0, 7).Value = "LTW10ADH"
        End If
    Next cel
End Sub

方案3：用Select Case让逻辑更清晰 #

如果后续还要添加更多匹配规则，用Select Case会让代码可读性更高，同样遵循“从具体到宽泛”的优先级顺序：

Sub ConvertComputerNames()
    Dim SrchRng As Range, cel As Range
    Set SrchRng = Range("A2:A200")
    
    For Each cel In SrchRng
        Select Case True
            Case InStr(1, cel.Value, "W7ADH") > 0
                cel.Offset(0, 7).Value = "LTW7ADH"
            Case InStr(1, cel.Value, "ADH") > 0
                cel.Offset(0, 7).Value = "LTW10ADH"
            ' 可以在这里添加更多匹配规则
            Case Else
                ' 如果没有匹配项，可以设置默认值或者留空
                cel.Offset(0, 7).Value = ""
        End Select
    Next cel
End Sub

以上几种方案都能解决你当前的问题，优先推荐方案1或3，根据你后续是否需要扩展规则来选择~

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