GBKEE

¦^´_ 26# jackyliu
¦A¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim D As Object, E, i As Integer
   
4.     Set D = CreateObject("Scripting.dictionary")             '¦r¨åª«¥ó
   
5.     i = 1
   
6.     With Sheet1
   
7.         Do While .Cells(i, "A") <> ""
   
8.             E = .Cells(i, "A") & .Cells(1, "B") & .Cells(1, "C") & .Cells(1, "E")
   
9.             If D.exists(E) = False Then
   
10.                D(E) = .Cells(i, "A").Resize(1, 6).Value
    
11.             End If
    
12.             i = i + 1
    
13.         Loop
    
14.     End With
    
15.     i = 1
    
16.     With Sheet2
    
17.         .Cells.Clear
    
18.         For Each E In D.KEYS
    
19.             .Cells(i, "A").Resize(1, UBound(D(E), 2)) = D(E)   'Ū¨ú¦r¨åª«¥óªºITEM(°}¦C)
    
20.             i = i + 1
    
21.         Next
    
22.     End With
    
23. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 29# c_c_lai
28# ªºµ{¦¡½X ¦³®ÉÁÙ¬O¿ù»~?­n¥[¤WIf E <> "" Then  ¨Ó¹LÂo¶Ü?

GBKEE

¦^´_ 35# jackyliu
»~¾Þ§@....  ½Ð»¡©ú¤@¤U,¦n¤F¸Ñª¬ªp