ML089

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xF As Range
    If Target.Address <> "$K$2" Then Exit Sub
    Set xF = [Sheet1!A:A].Find([K2].Value, lookat:=xlWhole)
    If xF Is Nothing Then MsgBox "§ä¤£¨ì": Exit Sub
    For i = 1 To 4
         xF(1, i * 2).Resize(, 2).Copy [K2:L2].Offset(i, 0)
    Next
End Sub

¦A±N K2 ³]©w¬° A:A ªº¿ï³æ¡A¥i¥H²¤Æ§@·~