GBKEE

¦^´_ 1# spermbank
¸Õ¸Õ¬Ý

1. Sub Ex()
   
2.     Dim Rng(1 To 2) As Range, Sh As Worksheet
   
3.     Sheets("­º­¶1").Range("C:C").Interior.ColorIndex = xlNone
   
4.     Set Rng(1) = Sheets("­º­¶1").[a2]
   
5.     Do While Rng(1) <> ""               '°õ¦æ°j°éªº±ø¥ó: Sheets("­º­¶1").ªºA¤£¬OªÅ®æ
   
6.         For Each Sh In Sheets(Array("¤W¥«·l¯q", "¤WÂd·l¯q", "¤W¥«¦X¨Ö·l¯q", "¤WÂd¦X¨Ö·l¯q"))
   
7.             Set Rng(2) = Sh.Range("A:A").Find(Rng(1).Value, LOOKAT:=xlWhole)  '¤u§@ªí¸s²Õ¤¤AÄæ´M§ä
   
8.             If Not Rng(2) Is Nothing Then
   
9.                 With Rng(1).Offset(, 2)
   
10.                     .Cells = Rng(2).Cells(1, "S")
    
11.                     If Sh.Name = "¤W¥«·l¯q" Or Sh.Name = "¤W¥«¦X¨Ö·l¯q" Then
    
12.                         .Interior.Color = vbMagenta
    
13.                     Else
    
14.                         .Interior.Color = vbCyan
    
15.                     End If
    
16.                 End With
    
17.             End If
    
18.         Next
    
19.         Set Rng(1) = Rng(1).Offset(1)  'Sheets("­º­¶1").[a2]....¤U²¾
    
20.     Loop
    
21. End Sub

½Æ»s¥N½X