GBKEE

¦^´_ 1# winston219

1. Sub Ex()
   
2. Dim A As Range, d As Object, Rng(1) As Range
   
3. Set Rng(0) = Sheet2.Range(Sheet2.[A2], Sheet2.[A65536].End(xlUp))
   
4. Set Rng(1) = Sheet1.Range(Sheet1.[A1], Sheet1.[A65536].End(xlUp))
   
5. Set d = CreateObject("Scripting.Dictionary")
   
6. For Each A In Rng(0)
   
7.     d(A.Value) = Array(A.Offset(, 2).Value, A.Offset(, 1).Value)
   
8. Next
   
9. For Each A In Rng(1)
   
10.     If d.exists(A.Value) = True Then
    
11.         A.Offset(, 2).Resize(, 2) = d(A.Value)
    
12.         d.Remove (A.Value)
    
13.     End If
    
14. Next
    
15. For Each A In Rng(0)
    
16.     If d.exists(A.Value) = True Then A.Cells(1, 4) = "¥¼²Å¦X"
    
17. Next
    
18. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# aa7551
¦bVBAµøµ¡ªº»¡©ú ¿é¤JRange ¦p¹Ï

¤U¸ü (30.84 KB)

2010-12-11 09:03

¤U¸ü (13.64 KB)

2010-12-11 09:03