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

½Ð±Ð¦p¦ó..¨ú¦P©m¦W©M¥[Á`¦¨¥æª÷...·PÁÂ

¦^´_ 1# alims

¦r¨å¼Ð·Ç¥Îªk
  1. Sub XX()
  2. Dim Ar(), d As Object
  3. Set d = CreateObject("scripting.dictionary")
  4. Ar = Range("A1:C" & [C2].End(xlDown).Row)
  5. For i = 1 To UBound(Ar)
  6.   If Not d.exists(Ar(i, 2)) Then d.Add Ar(i, 2), Ar(i, 3) Else d(Ar(i, 2)) = d(Ar(i, 2)) + Ar(i, 3)
  7. Next i
  8. [E:F] = ""
  9. [E1].Resize(d.Count, 1) = Application.Transpose(d.keys)
  10. [F1].Resize(d.Count, 1) = Application.Transpose(d.items)
  11. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¦³¤ß´N¦³ºÖ¡A¦³Ä@´N¦³¤O¡A¦Û³yºÖ¥Ð¡A¦Û±oºÖ½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD