ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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
ù

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

TOP

  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. Sheets("Sheet2").UsedRange.EntireRow.Delete
  14. Sheets("Sheet2").[A1:D1].Resize(N + 1) = Arr
  15. End Sub
½Æ»s¥N½X

TOP

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

TOP

ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

  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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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

TOP

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

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD