If Target.Column = 5 And Target.Row > 2 Then
arr = Sheet2.Range("b3:b" & Sheet2.Range("b9999").End(xlUp).Row)
For r = 1 To UBound(arr)
If Target.Value = arr(r, 1) Then
MsgBox arr(r, 1) & "存在!(数量为" & arr(r, 3) & ")"
End If
Next
End If
If Target.Column = 5 And Target.Row > 2 Then
arr = Sheet2.Range("b3:c" & Sheet2.Range("b9999").End(xlUp).Row)
For r = 1 To UBound(arr)
If Target.Value = arr(r, 1) Then
MsgBox arr(r, 1) & "存在!(数量为" & arr(r, 2) & ")"
End If
Next
End If