GBKEE

¦^´_ 5# adam2010
¥i°Ñ¦Ò¤@¤U

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim d As Object, C As Range, i As Double, Ar()
   
4.     Set d = CreateObject("scripting.dictionary") '¦r¨åª«¥ó
   
5.     For Each C In Sheets("SHEET2").UsedRange.Columns
   
6.         i = 2
   
7.         While C.Cells(i) <> ""
   
8.             d(C.Cells(i).Value) = C.Cells(1)
   
9.             i = i + 1
   
10.         Wend
    
11.     Next
    
12.     With Sheets("SHEET1")
    
13.         Ar = .UsedRange.Columns(1).Value
    
14.         Ar(1, 1) = "¹ê»Ú¦ì¸m"
    
15.         For i = 2 To UBound(Ar)
    
16.             Ar(i, 1) = d(Ar(i, 1))
    
17.         Next
    
18.         .[D1].Resize(UBound(Ar)) = Ar
    
19.     End With
    
20. End Sub

½Æ»s¥N½X