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

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

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

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

´ú¸Õ½d¨Ò.rar (6.79 KB)

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

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD