chin15

1. Sub ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. With Sheet1
   
4. For Each a In .Range(.[B5], .[B56636].End(xlUp))
   
5.    d(a & "") = Array(a.Offset(, 1).Value, a.Offset(, 2).Value, a.Offset(, 3).Value, a.Offset(, 4).Value)
   
6. Next
   
7. End With
   
8. With Sheet2
   
9. For Each a In .Range(.[D12], .[D56636].End(xlUp))
   
10.        If d.exists(a & "") Then a.Offset(, 4).Resize(, 4) = d(a & "")
    
11.     Next
    
12. End With
    
13. End Sub

½Æ»s¥N½X