diabo

1. Sub ¸ê®Æ¤ñ¹ï()
   
2. 
   
3. For r = 12 To Sheets("Sheet1").[D65536].End(xlUp).Row
   
4.      
   
5.     With Sheets("Sheet1")
   
6.         A = .Cells(r, "D").Value
   
7.         B = .Cells(r, "G").Value
   
8.     End With
   
9.    
   
10.     For rr = 1 To Sheets("Temp").[A65536].End(xlUp).Row
    
11.    
    
12.         If A = Sheets("Temp").Cells(rr, "A").Value Then
    
13.         
    
14.             If B = Sheets("Temp").Cells(rr, "B").Value Then
    
15.                 Sheets("Sheet1").Cells(r, "B").Value = "V"
    
16.             Else
    
17.                 Sheets("Sheet1").Cells(r, "B").Value = "?"
    
18.             End If
    
19.         
    
20.         End If
    
21.    
    
22.     Next rr
    
23. 
    
24. Next r
    
25. 
    
26. End Sub

½Æ»s¥N½X