Hsieh

¦^´_ 1# 518587

1. Sub ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. For Each a In Range([A1], [A1].End(xlDown)) '¸ê®Æ¦AAÄæ
   
4.    d(Format(Mid(a, 1, 8), "0000/00/00")) = d(Format(Mid(a, 1, 8), "0000/00/00")) + Val(Mid(a, 9))
   
5. Next
   
6. [D1].Resize(d.Count, 1) = Application.Transpose(d.keys) '¤é´Á©ñ¨ìDÄæ
   
7. [E1].Resize(d.Count, 1) = Application.Transpose(d.items) '¼Æ¶q¥[Á`©ñ¨ìEÄæ
   
8. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 4# 518587

1. Sub ex()
   
2. Dim k#
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. For Each a In Range([A1], [A1].End(xlDown)) '¸ê®Æ¦AAÄæ
   
5. k = DateValue(Format(Mid(a, 1, 8), "0000/00/00"))
   
6.    d(k) = d(k) + a.Offset(, 1) '¼Æ¶q¦bBÄæ
   
7. Next
   
8. [D:E] = "" '²MªÅ¸ê®Æ
   
9. r = 1
   
10. For i = Application.Min(d.keys) To Application.Max(d.keys) '³Ì¤p¤é´Á¨ì³Ì¤j¤é´Á¼g¤J
    
11. Cells(r, 4) = CDate(i)
    
12. Cells(r, 5) = d(i)
    
13. r = r + 1
    
14. Next
    
15. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 8# 518587

¤W­±ªºµ{¦¡·|¥X¿ù¡A¤j·§¬O¤é´Á³¡¤À
µ{¦¡¬O¥ÑA1¶}©l¡A¦]¬°§Aªº¸ê®Æ¦³¼ÐÃD
±N½d³ò±qA2¶}©lÀ³¸Ó´N¥i¦æ