­ã´£³¡ªL

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xF As Range, xE As Range
With Target
¡@¡@¡@If .Address <> "$A$2" Then Exit Sub
¡@¡@¡@If .Value = "" Then Exit Sub
¡@¡@¡@Set xF = [Sheet1!A:A].Find(.Value, Lookat:=xlWhole)
¡@¡@¡@If xF Is Nothing Then MsgBox "µL¦¹¸ê®Æ": GoTo 999¡@'§ä¤£¨ì¡A¸õ¦Ü¡e¼Ð°O999¡f¡A¨Ãµ²§ô°õ¦æ¡@
¡@¡@¡@Set xE = Cells(Rows.Count, "B").End(xlUp)(2)¡@'¢ÐÄæ³Ì«á¤@µ§¸ê®Æªº¤U¤@ªÅ¥Õ®æ¡@
¡@¡@¡@Application.EnableEvents = False
¡@¡@¡@xF.Resize(1, 7).Copy xE¡@'½Æ»s¤º®e¡]§t®æ¦¡¡^¡@
¡@¡@¡@xE = xE.Row - 1¡@'¡e§Ç¸¹¡f¥H¡e¦C¸¹¡f´î¢°¡@
End With
999:
Target.Select
Application.EnableEvents = True
End Sub


¥H¤U¨â¦æ·N«ä¤@¼Ë¡G
Set xE = Cells(Rows.Count, "B").End(xlUp)(2)
Set xE = Cells(Rows.Count, "B").End(xlUp).Cells(2, 1)