- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-4-1 06:16 ½s¿è
¦^´_ 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ªGn¥[¤W¤é´Á¥i¥H³sÄò´Nºâ¨S¦³¸ê®Æ¤]¥i¥H¥X²{¤é´Á¶Ü?! ¬Ý¤£À´- Option Explicit 'BÄæ¼Æ¶qªº¥[Á`
- Sub Ex()
- Dim D As Object, A As Range, K As Long, I As Long
- Set D = CreateObject("Scripting.Dictionary") '¦r¨åª«¥ó
- For Each A In Range([A1], [A1].End(xlDown)) '¸ê®Æ¦bAÄæ
- D(Val(Mid(A, 1, 8))) = D(Val(Mid(A, 1, 8))) + A.Offset(, 1) '¼Æ¶q¦bBÄ檺¥[Á`
- 'Val(Mid(A, 1, 8)) Âର¼Æ¦r
- Next
- [D:E].Clear
- For I = 1 To D.Count '³Ì¤pȨì³Ì¤jÈ
- K = Application.WorksheetFunction.Small(D.KEYS, I)
- [D1].Offset(I - 1) = Format(K, "0000/00/00") 'Âର¤é´Á®æ¦¡
- [E1].Offset(I - 1) = D(K) '¼Æ¶q¥[Á`
- Next
- End Sub
½Æ»s¥N½X |
|