register313

¦^´_ 1# m09903020

ÃD¥Ø¥u»¡¤@¥b
¥ý°Ñ¦Ò

1. Sub xx()
   
2. Dim Ar(9)
   
3. For I = 1 To [A1]
   
4.   Y = I Mod 10
   
5.   Ar(Y) = Ar(Y) + 1
   
6. Next I
   
7. [D1].Resize(10, 1) = Application.Transpose(Ar)
   
8. End Sub

½Æ»s¥N½X

1. Sub yy()
   
2. Dim Ar(9)
   
3. X = Int([A1] / 10)
   
4. Y = [A1] Mod 10
   
5. For I = 0 To 9
   
6.   Ar(I) = X
   
7.   If I <= Y Then Ar(I) = Ar(I) + 1
   
8. Next I
   
9. Ar(0) = Ar(0) - 1
   
10. [D1].Resize(10, 1) = Application.Transpose(Ar)
    
11. End Sub

½Æ»s¥N½X

¤U¸ü (150.24 KB)

2012-5-7 20:59