Hsieh

¦^´_ 1# ii31sakura

1. Sub ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. For Each a In Range([A2], [A2].End(xlDown)) '¨C¤é
   
4. ar = Split(a.Offset(, 1), Chr(10)) '´«¦æ¸ê®Æ
   
5. For Each k In ar
   
6.    s = Split(k, "-")(0): p = Split(k, "-")(1) '¨ú±o¼Æ¶q»P«~¦W
   
7.    If IsEmpty(d(a & p)) Then '¼g¤J¦r¨å
   
8.       d(a & p) = Array(a.Value, p, Val(s))
   
9.       Else
   
10.       d(a & p) = Array(a.Value, p, d(a & p)(2) + Val(s))
    
11.    End If
    
12. Next
    
13. Next
    
14. [F2].Resize(d.Count, 3) = Application.Transpose(Application.Transpose(d.items)) '¼g¤J¤u§@ªí
    
15. End Sub

½Æ»s¥N½X