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

½Ð°ÝSUMIFµ{¦¡

½Ð°ÝSUMIFµ{¦¡

¶µ¥Ø        ¼Æ¶q                        ¶µ¥Ø        ²Î­p
A        1                        A        5
A        2                        B        2
C        2                        C        4
D        2                               
E        2                               
R        2                        ²Î­pÄæ¬O¥Î¨ç¼ÆSUMIF($A:$A,$E2,$B:$B)§@²Î­p       
F        2                        ¦p¦ó¥Î¥¨¶°¨Ó§e²{­pºâµ{¦¡©O       
F        2                               
G        2                               
E        2                               
Y        2                               
U        2                               
I        2                               
J        2                               
H        2                               
G        2
F        2
B        2
C        2
A        2
Z        2

¦^´_ 1# lone_tiger0303
  1. Sub yy()
  2.     [d1].Consolidate [a1].CurrentRegion.Address(, , xlR1C1), xlSum, 1, 1
  3. End Sub
½Æ»s¥N½X

TOP

§Ú¬O·s¤â~~©Ò¥H¬Ý¤£¤ÓÀ´·N«ä
³o¦³¤@­ÓÀÉ®×~~³Â·Ð±z¨ó§U

Book1.zip (374.74 KB)

TOP

·s¤â´N§ó¸Ó»{¯uÂI
§OÀH«Kµo­Ó»P§AªºÀɮק¹¥þ¨â¦^¨Æªº°ÝÃD¡C

TOP

oobird ¦Ñ®v~~©êºp~~¾Ç¥Íª¾¿ù¤F
Áٽбz¤£­p«e¶û

TOP

¦^´_ 5# lone_tiger0303


    ¶]¤@¤U³o­Óµ{¦¡
  1. Sub yy()
  2. Dim d As Object, arr, a, i%, m%
  3. Set d = CreateObject("Scripting.Dictionary")
  4. a = Range("ac16:ah" & [ah65536].End(3).Row)
  5. ReDim arr(1 To UBound(a), 1 To 3)

  6. For i = 1 To UBound(a)
  7. If d(a(i, 6)) = "" Then
  8. m = m + 1
  9. d(a(i, 6)) = m
  10. arr(m, 1) = a(i, 6)
  11. arr(m, 2) = a(i, 1)
  12. arr(m, 3) = a(i, 2)
  13. Else
  14. arr(d(a(i, 6)), 2) = arr(d(a(i, 6)), 2) + a(i, 1)
  15. arr(d(a(i, 6)), 3) = arr(d(a(i, 6)), 3) + a(i, 2)
  16. End If
  17. Next
  18. Range("aj16").Resize(m, 3) = arr
  19. End Sub
½Æ»s¥N½X

TOP

ÁÂÁ±zªºÀ°¦£

TOP

oobird ¦Ñ®v
¾Ç¥Í¦³¤@­Ó¥¨¶°°õ¦æ¨ì¤@¥b·|¥X²{"«¬ºA¿ù»~"
¤£ª¾¿ù¦b¦ó³B~~½Ð¦Ñ®v¤£§[µ¹¤©«ü¾É

Book1.zip (163.61 KB)

TOP

¦^´_ 8# lone_tiger0303

¿ù»~¬O¦]¬°
k = Application.VLookup(m, Ay, 2)
·ím¦b¤£¦s¦b©óAy®É´N·|²£¥Í¿ù»~­È
©Ò¥H¡AµLªk¦b¤U¤@¥y¤¤ªº¼g¤J°Ê§@¨Ï¥Î
B.Offset(, 1) = B.Offset(, -6) & "-" & k
§ï¦¨
If Not IsError(k) Then B.Offset(, 1) = B.Offset(, -6) & "-" & k
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁ¡Iµ{¦¡®M¥Î«á¥H¥i¥H¨Ï¥Î
¦ý101201030D22    ¬°¦óµLªk¤ñ¹ï®M¸ê®Æ
½Ð¦A¶O¤ßµ¹¤©«ü¾É

Book1.zip (173.56 KB)

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD