Hsieh

¦^´_ 1# toxin

1. Sub ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. With Sheet3
   
4. ar = .UsedRange.Offset(1, 1).Value
   
5. ay = .UsedRange.Offset(1).Columns(1).Cells.Value
   
6. For i = 1 To UBound(ar, 1)
   
7.    For j = 1 To UBound(ar, 2)
   
8.    If ar(i, j) <> "" Then d(ar(i, j)) = ay(i, 1)
   
9.    Next
   
10. Next
    
11. End With
    
12. With Sheet1
    
13. For Each a In .Range(.[A2], .[A65536].End(xlUp))
    
14. a.Offset(, 4) = d(a.Value)
    
15. Next
    
16. End With
    
17. End Sub

½Æ»s¥N½X