Kubi

¦^´_ 1# jesscc
µ{¦¡½X­×§ï¦p¤U¡G

1. Option Base 1
   
2. Sub test()
   
3. 
   
4. With Sheets("¤u§@ªí1")
   
5. Set D = CreateObject("Scripting.Dictionary")
   
6. 
   
7. For Each B In .Range(.[B6], .[B100].End(xlUp))
   
8. Dim Ar(10)
   
9.     For p = 1 To 10
   
10.     Ar(p) = B.Offset(, p).Value
    
11.     Next p
    
12.     D(B & "") = Ar
    
13. Next
    
14. End With
    
15. 
    
16. 
    
17. With Sheets("¤u§@ªí2")
    
18. .[F7:O1000].ClearContents
    
19.     For Each E In .Range(.[E7], .[E100].End(xlUp))
    
20.       If D.EXISTS(E & "") Then
    
21.       E.Offset(, 1).Resize(, 10) = D(E & "")
    
22.       Else: E.Offset(, 1) = "¬dµL¦¹ PN"
    
23.       End If
    
24.     Next
    
25. End With
    
26. 
    
27. 
    
28. End Sub

½Æ»s¥N½X