Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then '¦pªGÅܰÊÀx¦s®æÄæ¦ì¦b²Ä¤@Äæ´N°õ¦æ
Set a = Workbooks("B¬¡¶Ã¯").Sheets(1).Columns("A").Find(Target, lookat:=xlWhole) '¦bB¬¡¶Ã¯ªº²Ä¤@Ó¤u§@ªíAÄæ·j´MÅܰʪºÈ
If Not a Is Nothing And Target <> "" Then Target.Offset(, 13) = a.Offset(, 6).Value: a.Offset(, 6) = "" '¦pªG§ä¨ì²Å¦Xªº¸ê®Æ´N§âB¬¡¶Ã¯ªºGÄæ¼g¤JA¬¡¶Ã¯ªºNÄæ:¨Ã±NB¬¡¶Ã¯ªºGÄæ²MªÅ