solely

¦^´_ 7# hugh0620
¥Hoobirdª©¥Dªºµ{¦¡½X¨Ó­×§ïªº¸Ü
²Ä2¦æ§ï>3, ¦A·s¼W²Ä5¦æ§Y¥i~

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Or Target.Column > 3 Then Exit Sub
   
3. On Error Resume Next
   
4. Target(1, 2) = Sheet2.[b:b].Find(Target, , , 1)(1, 2).Value
   
5. Target(1, 2) = Sheet3.[b:b].Find(Target, , , 1)(1, 2).Value
   
6. End Sub

½Æ»s¥N½X