luhpro

¦^´_ 1# eric093

1. Sub nn()
   
2.   Dim lRow As Long, lR As Long
   
3.   Dim d
   
4. 
   
5.   Set d = CreateObject("Scripting.Dictionary")
   
6.   lRow = 2
   
7.   With Sheets("Sheet2")
   
8.     Do While .Cells(lRow, 1) <> ""
   
9.       d(.Cells(lRow, 1) & "-" & .Cells(lRow, 2)) = lRow
   
10.       lRow = lRow + 1
    
11.     Loop
    
12.   End With
    
13.   
    
14.   lRow = 2
    
15.   lR = 1
    
16.   With Sheets("Sheet1")
    
17.     Do While .Cells(lRow, 1) <> ""
    
18.       If d(.Cells(lRow, 1) & "-" & .Cells(lRow, 2)) = "" Then
    
19.         Range(.Cells(lRow, 1), .Cells(lRow, 2)).Copy Sheets("Sheet3").Cells(lR, 1)
    
20.         lR = lR + 1
    
21.       End If
    
22.       lRow = lRow + 1
    
23.     Loop
    
24.   End With
    
25. End Sub

½Æ»s¥N½X