GBKEE

¦^´_ 4# 518587

d(Format(Mid(a, 1, 8), "0000/00/00")) = d(Format(Mid(a, 1, 8), "0000/00/00")) + Val(Mid(a, 9))

¬O¤é´Áªº¥[Á`

¥i¯à¦]¬°¸ê®Æ¤¤¦³¨Ç¤é´Á¨S¦³¡A¦pªG­n¥[¤W¤é´Á¥i¥H³sÄò´Nºâ¨S¦³¸ê®Æ¤]¥i¥H¥X²{¤é´Á¶Ü?!

¬Ý¤£À´

1. Option Explicit  'BÄæ¼Æ¶qªº¥[Á`
   
2. Sub Ex()
   
3.     Dim D As Object, A As Range, K As Long, I As Long
   
4.     Set D = CreateObject("Scripting.Dictionary")    '¦r¨åª«¥ó
   
5.     For Each A In Range([A1], [A1].End(xlDown))     '¸ê®Æ¦bAÄæ
   
6.         D(Val(Mid(A, 1, 8))) = D(Val(Mid(A, 1, 8))) + A.Offset(, 1)  '¼Æ¶q¦bBÄ檺¥[Á`
   
7.         'Val(Mid(A, 1, 8)) Âର¼Æ¦r
   
8.     Next
   
9.     [D:E].Clear
   
10.     For I = 1 To D.Count  '³Ì¤p­È¨ì³Ì¤j­È
    
11.         K = Application.WorksheetFunction.Small(D.KEYS, I)
    
12.         [D1].Offset(I - 1) = Format(K, "0000/00/00")  'Âର¤é´Á®æ¦¡
    
13.         [E1].Offset(I - 1) = D(K)                '¼Æ¶q¥[Á`
    
14. 
    
15.     Next
    
16. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# 518587
½ÐªþÀɬݬÝ

GBKEE

¦^´_ 11# shouyi63

1. Option Explicit
   
2. Sub EX()
   
3.     Dim Rng As Range, A As Double
   
4.     Set Rng = [A:B]
   
5.     A = Application.WorksheetFunction.SumIf(Rng.Columns(1), "bb", Rng.Columns(2))
   
6.     MsgBox A
   
7.    
   
8.     '"bb" ¤£¤À¤j¤p¼g
   
9.     'Rng.Columns(1)=[A:A]
   
10.     'Rng.Columns(2)=[B:B]
    
11. End Sub

½Æ»s¥N½X