输编号自动查名称出错

蓝风贝6329

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row < 2 Or Target.Row > 500 Then Exit Sub
    If Target.Column <> 1 Then Exit Sub
    Dim c As Range
    Set c = Sheets("原料名称库").[a:a].Find(Target.Value)
    If Not c Is Nothing Then Target.Offset(, 3) = c.Offset(, 1).Value
    If Not c Is Nothing Then Target.Offset(, 4) = c.Offset(, 2).Value
    If Not c Is Nothing Then Target.Offset(, 5) = c.Offset(, 3).Value
    If Not c Is Nothing Then Target.Offset(, 6) = c.Offset(, 4).Value
End Sub

有这样一段程序，我输入编号5和59 为什么都查的59对应的内容

lss001

Set c = Sheets("原料名称库").[a:a].Find(Target.Value, LookAt:=xlWhole)'最好查看Find帮助信息以了解更多参数说明！！！