Hsieh

¦^´_ 5# man65boy

1. Private Sub CommandButton1_Click()
   
2. Dim A As Range
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. car = TextBox1 '¨®
   
5. man = TextBox2 '¤H
   
6. With Sheet2
   
7. For Each A In .Range(.[A2], .[A2].End(xlDown))
   
8.   If car & man = A & A.Offset(, 1) Then d(A & A.Offset(, 1) & A.Offset(, 2)) = A.Offset(, 2).Address '§ä¨ì¨®¤H
   
9.   ad = d(A & A.Offset(, 1))
   
10. Next
    
11. If d(car & man) = "" Then '¨®¤H¨S¦³«h¥[¦C¸ê®Æ¡A§_«h¶ñ¦^¨®¬ö¿ý
    
12. Set A = .Cells(.Rows.Count, 1).End(xlUp)
    
13. A.Offset(1, 0) = car
    
14. A.Offset(1, 1) = man
    
15. Else
    
16.   .Range(d(car & man)) = man
    
17. End If
    
18. End With
    
19. End Sub

½Æ»s¥N½X