½Ð°ÝSUMIFµ{¦¡

lone_tiger0303

¶µ¥Ø        ¼Æ¶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

lone_tiger0303

ÁÂÁÂ~~¨ü±Ð¤F

Hsieh

¦^´_ 10# lone_tiger0303


    VLOOKUP¨ç¼Æ¡A­Y­n¼Ò½k¤ñ¹ï¡A¸ê®Æ®w¥²¶·¬O¥H»¼¼W±Æ§Ç
½Ð°Ñ¦ÒVLOOKUP¨ç¼Æ»¡©ú
±N²Ä4­Ó¤Þ¼Æ¸É¤W¡AÅý¥L¦¨¬°¤ñ¹ï§¹¥þ¬Û¦P¸ê®Æ
k = Application.VLookup(m, Ay, 2, 0)

lone_tiger0303

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

Hsieh

¦^´_ 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

lone_tiger0303

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

lone_tiger0303

ÁÂÁ±zªºÀ°¦£

oobird

¦^´_ 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. 
   
7. For i = 1 To UBound(a)
   
8. If d(a(i, 6)) = "" Then
   
9. m = m + 1
   
10. d(a(i, 6)) = m
    
11. arr(m, 1) = a(i, 6)
    
12. arr(m, 2) = a(i, 1)
    
13. arr(m, 3) = a(i, 2)
    
14. Else
    
15. arr(d(a(i, 6)), 2) = arr(d(a(i, 6)), 2) + a(i, 1)
    
16. arr(d(a(i, 6)), 3) = arr(d(a(i, 6)), 3) + a(i, 2)
    
17. End If
    
18. Next
    
19. Range("aj16").Resize(m, 3) = arr
    
20. End Sub

½Æ»s¥N½X

lone_tiger0303

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

oobird

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