GBKEE

¦^´_ 1# jackyliu
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim D As Object, E, I As Integer
   
4.     Set D = CreateObject("Scripting.dictionary")             '¦r¨åª«¥ó
   
5.     For Each E In Sheet1.Range("a1").CurrentRegion.Rows      'ª«¥ó: A1©Ò©µ¦ù½d³òªº¦C
   
6.          D(E.Cells(1, 1) & E.Cells(1, 2) & E.Cells(1, 3) & E.Cells(1, 5)) = E.Value
   
7.     Next
   
8.     With Sheet2
   
9.         .Cells.Clear
   
10.         I = 1
    
11.         For Each E In D.KEYS
    
12.             .Cells(I, "A").Resize(1, UBound(D(E), 2)) = D(E)   'Ū¨ú¦r¨åª«¥óªºITEM(°}¦C)
    
13.         I = I + 1
    
14.         Next
    
15.     End With
    
16. End Sub

½Æ»s¥N½X