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

GBKEE

¦^´_ 3# jackyliu
µ¹ªºµ{¦¡½X¬O¥H Sheet1A1©Ò©µ¦ù½d³òªº¦C ¬° Sheet1 ªº¸ê®Æ
For Each E In Sheet1.Range("a1").CurrentRegion.Rows      'ª«¥ó: A1©Ò©µ¦ù½d³òªº¦C
§A´ú¸ÕÀɮפ¤ Sheet1 ªº¸ê®Æ ¦b­þ¸Ì?? ¶·ªþ¤W§A´ú¸ÕÀɤ~¤F¸Ñ

GBKEE

¦^´_ 5# jackyliu
¥i¯à¬Oª©¥»ªº®t²§2000ª©¨S¥Î¹L,¤£ª¾¿ù»~¦b­þ¸Ì,2003°õ¦æ¨S¦³¿ù»~ªº
½Ð§ä¥X¿ù»~ÂI¦p¹Ï

¤U¸ü (30.97 KB)

2013-7-24 06:39

¦ó§P©w¤w¦s¦b,¦³­«½Æ¤º®e,¤£°õ¦æ¼g¤JSheet2¸Ì
µ{¦¡½X¦p¤U

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim D1 As Object, D2 As Object, E, I As Integer, S As String
   
4.     Set D1 = CreateObject("Scripting.dictionary")                   '¦r¨åª«¥ó
   
5.     Set D2 = CreateObject("Scripting.dictionary")                   '¦r¨åª«¥ó
   
6.     For Each E In Sheet1.Range("a1").CurrentRegion.Rows             'ª«¥ó: A1©Ò©µ¦ù½d³òªº¦C
   
7.          S = E.Cells(1, 1) & E.Cells(1, 2) & E.Cells(1, 3) & E.Cells(1, 5)  'S=>key­È
   
8.          D1(S) = E.Value                                            '¦³¬Û¦Pªºkey­È-> E½d³òªº­È(°}¦C) Ū¤J¨ìItem
   
9.          D2(S) = D2(S) + 1                                          '¦³¬Û¦Pªºkey­È-> item +1
   
10.     Next
    
11.     With Sheet2
    
12.         .Cells.Clear
    
13.         I = 1
    
14.         For Each E In D2.KEYS
    
15.             If D2(E) = 1 Then                                       'D2¨S­«ÂЪºkey­È -> item= 1
    
16.                 .Cells(I, "A").Resize(1, UBound(D1(E), 2)) = D1(E)  'Ū¨úD1¬Û¦Pªºkey­È: ¾É¤JD1ªºItem(°}¦C)
    
17.                 I = I + 1
    
18.             End If
    
19.         Next
    
20.     End With
    
21. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# c_c_lai
·Ð½Ð¦b¥[¤W.Value´ú¸Õ¬Ý¬Ý

1.         For Each E In D.KEYS
   
2.             .Cells(I, "A").Resize(1, UBound(D(E), 2)).Value = D(E)

½Æ»s¥N½X

GBKEE

¦^´_ 9# c_c_lai
¨¯­W¤F,½Ð´«­ÓÅܼƦWºÙ¸Õ¸Õ¬Ý

1. For Each K In D.KEYS
   
2.             .Cells(I, "A").Resize(1, UBound(D(K), 2)) = D(K)   

½Æ»s¥N½X

GBKEE

¦^´_ 11# c_c_lai
ÁÂÁ§A,§A¤w¾¨¥þ¤O,²ö¥i­@¦ó¥¦¤F

GBKEE

¦^´_ 14# jackyliu
Hsieh¶Wª© 13# ªº¸Õ¤F,¨S¦p¨S¿ù»~¥i·ÓµÛ§ï¸Õ¸Õ¬Ý

GBKEE

¦^´_ 16# jackyliu
§Ú¥u¦³2003ª©°õ¦æ¤@ª½¦n¦nªº, µLªk¬d¥X§Aªº¿ù»~¦b­þ¸Ì.
c_c_lai ¤]À°¦£´ú¸Õ¨ä¥Lª©¥»¦³®É·|¦³¿ù»~.(¤£¤F¸Ñ¬°¦ó¦p¦¹)

GBKEE

¦^´_ 19# c_c_lai
15# ¦³°Ý¨ì  Hsieh¶Wª© 13# ªº¸Õ¤F,¨S¦p¨S¿ù»~¥i·ÓµÛ§ï¸Õ¸Õ¬Ý   
§A18# µ{¦¡½X, ¥u®t§Ú¨S®Ñ©ú E As Variant

1. Dim Dk As Object, E As Variant, cts As Integer
   
2.       'Dim Dk As Object, E, cts As Integer

½Æ»s¥N½X

½Ð¦b§Úªºµ{¦¡½Xª©¥»¤¤,®Ñ©ú E As Variant ¦A´ú¸Õ¬Ý

GBKEE

¦^´_ 24# c_c_lai
2003ª©¨S¦³ªº°ÝÃD,«ç·|¦b2007ª©¥X²{,ÁÂÁ§AªºÀ°¦£°»¿ù.