VBA开发：Instr函数返回意外匹配，产品编码查询错误求助

你的推测完全正确——InStr函数是模糊匹配，只要单元格内容包含查询字符串就会返回匹配结果，输入"1"时，最后一条编码"13"因包含"1"被匹配，再加上原代码会遍历所有行，最后匹配的结果会覆盖之前的，所以显示的是最后一条。

因为你的编码都是整数值，完全可以改成精确匹配，用Match函数会更高效，也能彻底解决这个问题。下面给两种修改方案：

方案1：修改原循环逻辑为精确数值匹配 #

直接把InStr的模糊判断改成数值相等判断，找到匹配后立即退出循环，避免后续行覆盖结果：

Private Sub TextBox1_Change()
    On Error Resume Next
    
    Dim Abas As Worksheet
    Dim linha As Long ' 用Long避免行号超过Integer范围
    Dim xPesq As String
    Dim xCel As String
    Dim xPlan As String
    
    xPlan = Planilha1.Name
    xPesq = Edi_Pro.TextBox1.Text
    linha = 3
    
    Set Abas = ThisWorkbook.Worksheets(xPlan)
    ' 先清空控件，避免旧内容残留
    Edi_Pro.TextBox2.Value = ""
    Edi_Pro.TextBox3.Value = ""
    Edi_Pro.TextBox4.Value = ""
    Edi_Pro.ComboBox1.Value = ""
    
    With Abas
        ' 处理查询为空的情况
        If xPesq = "" Then Exit Sub
        
        While .Cells(linha, 2) <> Empty
            xCel = .Cells(linha, 2)
            ' 转成数值精确比较，避免字符串包含问题
            If IsNumeric(xCel) And IsNumeric(xPesq) Then
                If CLng(xCel) = CLng(xPesq) Then
                    Edi_Pro.TextBox2.Value = .Cells(linha, 3)
                    Edi_Pro.TextBox3.Value = .Cells(linha, 4)
                    Edi_Pro.TextBox4.Value = .Cells(linha, 5)
                    Edi_Pro.ComboBox1.Value = .Cells(linha, 7)
                    Exit Wend ' 找到匹配后立即退出循环，不用继续遍历
                End If
            End If
            linha = linha + 1
        Wend
    End With
End Sub

修改点说明：

• 去掉了不必要的Sheets("Produtos").Select和Planilha1.Activate，直接通过工作表对象操作，更高效稳定
• 先清空控件内容，避免查询新值时旧内容残留
• 转成CLng（长整数）进行精确数值比较，彻底解决字符串包含的问题
• 找到匹配项后用Exit Wend退出循环，避免后续行覆盖结果
• 增加了IsNumeric判断，防止非数值输入报错

方案2：用Match函数直接定位（更高效） #

Match函数可以直接在指定区域查找精确匹配的项，不用循环遍历，代码更简洁高效：

Private Sub TextBox1_Change()
    On Error Resume Next
    
    Dim Abas As Worksheet
    Dim matchRow As Variant
    Dim xPesq As String
    Dim xPlan As String
    
    xPlan = Planilha1.Name
    xPesq = Edi_Pro.TextBox1.Text
    
    Set Abas = ThisWorkbook.Worksheets(xPlan)
    ' 清空控件
    Edi_Pro.TextBox2.Value = ""
    Edi_Pro.TextBox3.Value = ""
    Edi_Pro.TextBox4.Value = ""
    Edi_Pro.ComboBox1.Value = ""
    
    If xPesq = "" Then Exit Sub
    
    ' 用Match函数精确查找编码列（B列，从第3行开始）
    matchRow = WorksheetFunction.Match(CLng(xPesq), Abas.Range("B3:B" & Abas.Cells(Abas.Rows.Count, "B").End(xlUp).Row), 0)
    
    If Not IsError(matchRow) Then
        ' matchRow是相对于查找区域的行号，所以要加2（因为从第3行开始）
        Dim targetRow As Long
        targetRow = matchRow + 2
        Edi_Pro.TextBox2.Value = Abas.Cells(targetRow, 3)
        Edi_Pro.TextBox3.Value = Abas.Cells(targetRow, 4)
        Edi_Pro.TextBox4.Value = Abas.Cells(targetRow, 5)
        Edi_Pro.ComboBox1.Value = Abas.Cells(targetRow, 7)
    End If
End Sub

修改点说明：

• 用WorksheetFunction.Match直接查找，第三个参数0表示精确匹配
• 查找区域自动定位到B列有数据的最后一行，不用手动循环
• 处理Match函数找不到匹配项的错误（通过IsError判断）
• 代码更简洁，执行效率更高，适合数据量较大的情况

内容的提问来源于stack exchange，提问作者João Paulo Francisconi