Adela

¦^´_ 3# Hsieh


    ¦ý¬O§Úªºcase¬O·Q§â ÀÉ®×B Âର ÀÉ®×A ¡K¡K¡K

   ¤£ª¾¹D°ª¤â¥i¤£¥i¥HÀ°À°§Ú¡A§Ú«ç»ò³£§ï¤£¥X¨Ó ʨ

  ÁÂÁ¡I

Hsieh

¦^´_ 2# john2006168

1. Sub nn()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. With Sheet1
   
4. d(.[A1] & .[B1]) = .[C1]
   
5. For Each a In .Range(.[A2], .[A65536].End(xlUp))
   
6.    d(a & a.Offset(, 1)) = d(a & a.Offset(, 1)) + a.Offset(, 2)
   
7. Next
   
8. End With
   
9. With Sheet2
   
10. .Columns("A:B") = ""
    
11. .[A1].Resize(d.Count, 1) = Application.Transpose(d.keys)
    
12. .[B1].Resize(d.Count, 1) = Application.Transpose(d.items)
    
13. End With
    
14. End Sub

½Æ»s¥N½X

john2006168

¦^´_ 1# Hsieh


    ¦Ñ®v¦n§Q®`®@...

§Ú¦n·Q¾Ç¼gvba,¦ý¬O«Ü¦h¤£©ú¥Õ,§Æ±æ¦Ñ®v¥i¥H¸Ô²Ó¸ÑÄÀ¤@¤U
¦³¤@­Óªí¦p¤U,§Ú·Q±NREF#+PLT NO,¦A­pºâTOTAL CTNS.   IE:J0507001-01  TOTAL1 CTN «á¦ASHEET2ªí¹F¥X¨Ó¦n¤U2
SHEET1
A                 B                  C
plt  no1         RE#             CTN
01        J0507001               1
01        J0507001         0
01        J0507002                1
01        J0507002        2
02        J0507003               3
02        J0507013       6
02        J0507014                5
02        J0507014                 7


-SHEET2---------------------------------------------
      A                          B
REF+PL NO        TOTAL CTN
J0507001-01        1
J0507002-01        3
J0507003-02        3
J0507013-02        9
J0507014-02        12