­ã´£³¡ªL

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xR As Range, MM
With Target
¡@¡@If .Columns.Count > 1 Then Exit Sub
¡@¡@If .Row < 2 Then Exit Sub
¡@¡@If .Column = [F1].Column Then
¡@¡@¡@¡@With .Offset(, 1)
¡@¡@¡@¡@¡@¡@.FormulaR1C1 = "=VLOOKUP(RC[-1],²£«~½s¸¹!C[-6]:C[-2],2,0)"
¡@¡@¡@¡@¡@¡@.Value = .Value
¡@¡@¡@¡@¡@¡@.Replace "#N/A", "", Lookat:=xlWhole
¡@¡@¡@¡@¡@¡@.Replace "0", ""
¡@¡@¡@¡@End With
¡@¡@ElseIf .Column = [M1].Column Then
¡@¡@¡@¡@On Error Resume Next
¡@¡@¡@¡@Application.EnableEvents = False
¡@¡@¡@¡@For Each xR In Target
¡@¡@¡@¡@¡@¡@MM = Application.Match(xR, Sheets("Sheet1").Range("A:A"), 0)
¡@¡@¡@¡@¡@¡@If IsNumeric(MM) Then xR = Sheets("Sheet1").Range("B" & MM).Value
¡@¡@¡@¡@Next
¡@¡@End If
End With
Application.EnableEvents = True
End Sub