[µo°Ý] [¤w¸Ñ¨M]±ø¥ó¦¡¿z¿ï

planck_100

§Ú¦³¤@µ§¸ê®Æ¦p¤U
     A        B       C       D
1  Ä«ªG    ªG¥Ä     ªM       3
2  ­»¿¼    ¹s°â     ¤ç       7
3  Ä«ªG    ¹s°â     Áû       2
4  ªÝ¼Ö    ¹s°â     ­Ó       3
5  ¸²µå    ªG¥Ä     ªM       1
6  ­»¿¼    ¹s°â     ¤ç       2
7  »ñ±ù    ªG¥Ä     ­Ó       9


AÄ欰¤ôªG¦WºÙ
BÄ欰¥Î³~
CÄ欰³æ¦ì
DÄ欰¼Æ¶q

¸g¹L¿z¿ï«á¦A²Ä¤E¦C²£¥Í¿z¿ï«áªº¼Æ­È(¤£­«½Æ¡A¨Ã²Î­p)

       A        B       C       D
9    Ä«ªG    ªG¥Ä     ªM       3
10  ­»¿¼    ¹s°â     ¤ç       9
11  Ä«ªG    ¹s°â     Áû       2
12  ªÝ¼Ö    ¹s°â     ­Ó       3
13  ¸²µå    ªG¥Ä     ªM       1
14  »ñ±ù    ªG¥Ä     ­Ó       9


½Ð°Ý¥ÎVBA­n¦p¦ó¹ê²{?   ÁÂÁ¦U¦ì¤£§[¶Þ«ü±Ð¡C

oobird

1. Sub xx()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. a = [a1].CurrentRegion
   
4. For i = 1 To UBound(a)
   
5. k = a(i, 1) & a(i, 2)
   
6. If Not d.exists(a(i, 1) & a(i, 2)) Then
   
7. d(k) = Application.Index(a, i)
   
8. Else
   
9. d(k) = Array(d(k)(1), d(k)(2), d(k)(3), d(k)(4) + a(i, 4))
   
10. End If
    
11. Next
    
12. [a9].Resize(d.Count, 4) = Application.Transpose(Application.Transpose(d.items))
    
13. End Sub

½Æ»s¥N½X

planck_100

ÁÂÁ±zªº«ü±Ð¡C


µ{¦¡¤w´ú¸Õ¥¿±`¡A¦A¦¸·PÁ±zªº«ü¾É¡C

planck_100

¦^´_ 2# oobird


    ½Ð±Ð¤@­Ó°ÝÃD

[a9].Resize(d.Count, 4) = Application.Transpose(Application.Transpose(d.items))

A9 ¨º­Ó"9" ¥i¥H¥ÎÅܼƨú¥N¶Ü?



¤w¸Ñ¨M

Range("a" & x).Resize(d.Count, 4) = Application.Transpose(Application.Transpose(d.items))

dou10801

½Ð±Ð¦U¦ì«e½ú,¬°¦ó·s¼W¨ì²Ä10µ§´N·|,¿ù»~,¶W¥X½d³ò,ÁÂÁÂ.
Sub «ö¶s1_Click()
Set d = CreateObject("Scripting.Dictionary")
a = [a1].CurrentRegion

For i = 1 To UBound(a)
    k = a(i, 1) & a(i, 2)
    If Not d.exists(a(i, 1) & a(i, 2)) Then
       d(k) = Application.Index(a, i)
    Else
       d(k) = Array(d(k)(1), d(k)(2), d(k)(3), d(k)(4) + a(i, 4))
    End If
Next
'[a9].Resize(d.Count, 4) = Application.Transpose(Application.Transpose(d.items))
[f1].Resize(d.Count, 4) = Application.Transpose(Application.Transpose(d.items))
'Range("a" & x).Resize(d.Count, 4) = Application.Transpose(Application.Transpose(d.items))
End Sub