lpk187

1. Sub «ö¶s1_Click()
   
2. Dim Rng As Range
   
3. With Sheets("Sheet2")
   
4.     For Each Rng In .Range("C3:C79")
   
5.         If Rng <> "" Then
   
6.             Set da = .Range("AA3:AA500").Find(Rng.Value, LookAt:=xlWhole, SearchDirection:=2)
   
7.             If da Is Nothing Then
   
8.                 Rng.Offset(, -1) = 3
   
9.             Else
   
10.                 Rng.Offset(, -1) = 1
    
11.                 Set da = Nothing
    
12.             End If
    
13.         End If
    
14.     Next
    
15. End With
    
16. End Sub

½Æ»s¥N½X

¦^´_ 1# RCRG