Excel 如何用VBA实现在sheet1!A1输入一个数字，在sheet2!的A列寻找是否有相同的...

如题，想知道如何用VBA实现在sheet1!A1输入一个数字，在sheet2!的A列寻找是否有相同的数字
显示效果为，如果有那么光标停留在那个相同数字的单元格，如果没有则弹出“没有相符数字”

附件如下

2. Private Sub Worksheet_Change(ByVal Target As Range)
   

3. Dim arr, i%, n%, j%
   

4. If Target.Address(0, 0) <> 'A1' Then Exit Sub
   

5. arr = Sheets(2).Range('A1:A' & Sheets(2).Range('A65536').End(3).Row)
   

6. n = 0
   

7. For i = 1 To UBound(arr)
   

8. If arr(i, 1) = Target.Value Then
   

9. n = n + 1
   

10. Sheets(2).Activate
    

11. Sheets(2).Range('A' & i).Select
    

12. End If
    

13. Next
    

14. If n = 0 Then MsgBox '没有相符数字!'
    

15. End Sub

1. Private Sub Worksheet_Change(ByVal Target As Range)
   

2. If Target.Row = 1 And Target.Column = 1 Then
   

3. Set x = Sheet2.Range('a1:a16').Find(Target.Value, , , xlWhole)
   

4. If x Is Nothing Then
   

5. MsgBox '没有相符数字': Exit Sub
   

6. Else
   

7. Sheet2.Select
   

8. Sheet2.Range('a' & x.Row).Select
   

9. End If
   

10. End If
    

11. End Sub