GBKEE

¦^´_ 3# an13755

1. Sub Ex()
   
2.     Dim Á`ªí As String, Sh As Worksheet, E As Range, i As Integer
   
3.     With ActiveWorkbook
   
4.         Á`ªí = InputBox("¿é¤JÁ`ªí¦WºÙ", , .ActiveSheet.Name)
   
5.         If Á`ªí = "" Then Exit Sub
   
6.         On Error GoTo A:
   
7.         .Sheets(Á`ªí).Activate
   
8.         For Each Sh In .Sheets
   
9.             If Sh.Name <> Á`ªí Then
   
10.                 For Each E In Sh.[a1:a100]
    
11.                     If Not Sh.[d1:k1].Find(E, , , 1) Is Nothing Then
    
12.                         E.Interior.ColorIndex = 6
    
13.                     End If
    
14.                 Next
    
15.                 Sh.[a1:a100].Copy
    
16.                 ActiveWorkbook.Sheets(Á`ªí).Cells(i + 2, 2).PasteSpecial Transpose:=True
    
17.                 i = i + 1
    
18.             End If
    
19.         Next
    
20.     End With
    
21.     Application.CutCopyMode = False
    
22. A:
    
23.     If Err.Number > 0 Then
    
24.         MsgBox "Á`ªí ¦WºÙ¿ù»~"
    
25.     Else
    
26.         MsgBox "¤u§@ §¹¦¨ !!"
    
27.     End If
    
28. End Sub

½Æ»s¥N½X