oobird

1. Sub test()
   
2. For i = 1 To 5
   
3. Set c = Sheets(i).[a1:a100]
   
4. For Each k In c
   
5. If Not Sheets(i).[d1:k1].Find(k, , , 1) Is Nothing Then
   
6. k.Interior.ColorIndex = 6
   
7. End If
   
8. Next
   
9. c.Copy
   
10. Sheets("Á`ªí").Cells(i + 1, 2).PasteSpecial Transpose:=True
    
11. Application.CutCopyMode = False
    
12. Next
    
13. End Sub

½Æ»s¥N½X