[µo°Ý] ¤W¯Z®É¶¡°ÝÃD½Ð±Ð

rouber590324

DEAR ALL ¤j¤j
1. SHEET1 ¤§¸ê®Æ®w¤º®e¦p¤U
            AÄæ©m¦W                BÄæ¤é´Á                 CÄæ¤J¼t®É¶¡                DÄæ¥X¼t®É¶¡  
2¦C       ¤RÂE¸q                1070321               10703210759               10703211712
3¦C        ÃQ¤hªN               1070321               10703210755               10703211203
4¦C       ÃQ¤hªN                1070321               10703211254               10703211723   
5¦C       ·¨¨Î®¶                1070322               10703220753               10703221706
..........................................
2.°ÝÃDÂI: ³¡¤À¤¤¤È¦³¥~¥X¥ÎÀ\¤§¤H­û·|¦³2µ§¥´¥d¸ê®Æ(¨Ò:ÃQ¤hªN 0321 ¦³2µ§  10703210755-10703211203 »P 10703211254-10703211723 ¸ê®Æ      )
3.»Ý¨D©ó SHEET2 ¤º±N ¤¤¤È¦³¥~¥X¥ÎÀ\¤§2µ§¸ê®Æ¾ã¦X¬°¤@µ§(¨Ò:ÃQ¤hªN 0321 ¦³2µ§¸ê®Æ¾ã¦X¬° 10703210755      10703211723  ¤@µ§¤W¤U¯Z¥´¥d®É¶¡¸ê®Æ )      
   3.1. SHEET2 ¤§¸ê®Æ®w¤º®e¦p¤U
            AÄæ©m¦W                BÄæ¤é´Á                 CÄæ¤J¼t®É¶¡                DÄæ¥X¼t®É¶¡  
2¦C       ¤RÂE¸q                1070321               10703210759               10703211712
3¦C        ÃQ¤hªN               1070321               10703210755               10703211723
4¦C       ·¨¨Î®¶                1070322               10703220753               10703221706
..........................................
4.·Ð¤£§[½ç±Ð.  THANKS*10000

­ã´£³¡ªL

½Ð¤W¶ÇÀÉ®×~~¤~¦n°Ñ¦Ò

rouber590324

DER  ­ã´£³¡ªL  ¤j¤j
1.¤½¥q¹q¸£,­­¨îµLªk¤W¶ÇÀÉ®×»P¤U¸üÀÉ®×.
   ¬G¤è¥Î¤å¦r®Ñ¼g.©|½Ð¨£½Ì.SORRY*10000

Hsieh

1. Sub ex()
   
2. Set dic = CreateObject("Scripting.Dictionary")
   
3. With Sheets(1)
   
4. For Each a In .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp))
   
5. If IsEmpty(dic(a & a.Offset(, 1))) Then
   
6. ar = Application.Transpose(Application.Transpose(a.Resize(, 4).Value))
   
7.    dic(a & a.Offset(, 1)) = ar
   
8.    Else
   
9. ar = dic(a & a.Offset(, 1))
   
10. ar(4) = a.Offset(, 3)
    
11.    dic(a & a.Offset(, 1)) = ar
    
12. End If
    
13. Next
    
14. End With
    
15. Sheets(2).[A:D].ClearContents
    
16. Sheets(2).[A1].Resize(dic.Count, 4) = Application.Transpose(Application.Transpose(dic.items))
    
17. End Sub

½Æ»s¥N½X

¦^´_ 3# rouber590324

hcm19522

http://blog.xuite.net/hcm19522/twblog/578876886

rouber590324

DEAR  Hsieh  ¤j¤j
·PÁ±z¤§«ü¾É.100%²Å¦X»Ý¨D  thanks*10000

­ã´£³¡ªL

1. Sub TEST()
   
2. Dim Arr, i&, j%, T$, xD, U&, N&
   
3. Arr = Range([Sheet1!D1], [Sheet1!A1].Cells(Rows.Count, 1).End(xlUp))
   
4. Set xD = CreateObject("Scripting.Dictionary")
   
5. For i = 2 To UBound(Arr)
   
6.     T = Arr(i, 1) & Arr(i, 2):  U = xD(T)
   
7.     If U = 0 Then
   
8.        N = N + 1: xD(T) = N: U = N
   
9.        For j = 1 To 4: Arr(U + 1, j) = Arr(i, j): Next
   
10.     End If
    
11.     Arr(U + 1, 4) = Arr(i, 4)
    
12. Next i
    
13. 
    
14. Sheets("Sheet2").UsedRange.EntireRow.Delete
    
15. Sheets("Sheet2").[A1:D1].Resize(N + 1) = Arr
    
16. End Sub

½Æ»s¥N½X

rouber590324

DEAR ­ã´£³¡ªL ¤j¤j
·PÁ±z¤§«ü¾É.100%²Å¦X»Ý¨D  thanks*10000