½Ð¦U¦ì¨ó§U¦p¦ó¦P®É§PŪ¨â­ÓÄæ¦ì¤º­«½Æ¶µ¥Ø°O¿ý

cait

¦U¦ì¤j¤j
Äæ¦ìA¬°«È¤á¡BÄæ¦ìB¬°­qÁʲ£«~¡BÄæ¦ìC¬°­qÁʶO¥Î
¦p¦ó°O¿ý¨C¦ì«È¤á©Ò­qÁʲ£«~ªº¶O¥Î²Î­p
³Â·Ð¦U¦ì¤j¤j¤F

Hsieh

¦^´_ 1# cait
°ò¥»¤W³oºØ°ÝÃD¼Ï¯Ã¤ÀªR¬O³Ì¦n¥Îªº
¯Âºéµ{¦¡°Q½×½Ð°Ñ¦Ò¬Ý¬Ý

1. Sub nn()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. d([A1] & [B1]) = Array([A1], [B1], [C1])
   
4. For Each a In Range([A2], [A2].End(xlDown))
   
5. mystr = a & a.Offset(, 1)
   
6. If IsEmpty(d(mystr)) Then
   
7.    d(mystr) = Array(a, a.Offset(, 1), a.Offset(, 2))
   
8.    Else
   
9.    ar = d(mystr)
   
10.    ar(2) = ar(2) + a.Offset(, 2)
    
11.    d(mystr) = ar
    
12. End If
    
13. Next
    
14. [E1].Resize(d.Count, 3) = Application.Transpose(Application.Transpose(d.items))
    
15. Range("E1").CurrentRegion.Sort key1:=[E1], Header:=xlYes
    
16. End Sub

½Æ»s¥N½X