Hsieh

回復 1# mdr0465

1. Sub Ex()
   
2.     Dim rng, rng2 As Range
   
3.    
   
4.     Application.ScreenUpdating = False
   
5.    
   
6.     With Sheets(2)
   
7.      .Range("a1:a18").Interior.ColorIndex = xlNone
   
8.        For Each rng2 In .Range("a1:a18").SpecialCells(xlCellTypeConstants)
   
9.          If Sheets(1).Range("A1:A18").Find(rng2, lookat:=xlWhole) Is Nothing Then rng2.Interior.ColorIndex = 47
   
10.        Next
    
11.     End With
    
12.    
    
13.     Application.ScreenUpdating = True
    
14. 
    
15. End Sub

複製代碼