Hsieh

1. Sub ex()
   
2. Dim A As Range
   
3. Application.ScreenUpdating = False
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. With Sheets("Temp")
   
6.    For Each A In .Range(.[A1], .[A1].End(xlDown))
   
7.      d(A.Value) = A.Offset(, 1).Value
   
8.    Next
   
9. End With
   
10. With Sheets("Sheet1")
    
11. .[B:B] = ""
    
12.   For Each A In .Range(.[D12], .[D65536].End(xlUp))
    
13.      If d.exists(A.Value) = True Then
    
14.         If A.Offset(, 3) <> d(A.Value) Then
    
15.         A.Offset(, -2) = "?"
    
16.         ElseIf A.Offset(, 3) = d(A.Value) Then
    
17.         A.Offset(, -2) = "V"
    
18.         End If
    
19.      End If
    
20.   Next
    
21. End With
    
22. Application.ScreenUpdating = True
    
23. End Sub

½Æ»s¥N½X

¦^´_ 1# jesscc