adrian_9832

hcm19522 µoªí©ó 2018-10-4 10:22

    ¤½¦¡¤W­n§ï°Ê¶Ü? ¤Ö¤F¤@­Ó6 ©êºp..

n7822123

¦^´_ 11# adrian_9832

µL¨¥.....­ì¨Ó§Aªº"-" ¤£¬O°Ï®æ²Å¸¹ ¦Ó¬O³sÄòªº·N«ä?

5-7=5,6,7
¨º9-0 À³¸Ó¦p¦ó¸ÑÄÀ?
¤@¡B9,10
¤G¡B9,8,7,6,5,4,3,2,1,0
¤T¡B9,0

¦pªG¬O²Ä3ºØ¡A¨º¬O¤£¬Oªí¥Ü§Aªº¦ì¼Æ³£¥u¦³1¦ì¡A­Ó¼Æ³Ì¦h´N0~9  ¦@10ºØ?

­ã´£³¡ªL

Sub Macro1()
Dim xR As Range, T, TT, Tr, j%, N&, ARR
ReDim ARR(1 To 2000, 0)
For Each xR In Range([a1], [a65536].End(3))
    TT = Split(Replace(Replace(xR, ")", ""), "-0", "-10"), "(")
    For Each T In Split(TT(1), ",")
        Tr = Split(T & "-" & T, "-")
        For j = Tr(0) To Tr(1)
            N = N + 1: ARR(N, 0) = TT(0) & Right(j, 1)
        Next j
    Next
Next
[b1].Resize(N) = ARR
End Sub

adrian_9832

¦^´_ 12# n7822123

9-0
§Y¬O9,0  

0¬°³Ì¤jªº¸¹½X  
©Ò¥H¦pªG¬A¸¹¦³0 ¤ñ¦p 2130(1-0) §Y¬O

21301
21302
21303
21304
21305
21306
21307
21308
21309
21300

adrian_9832

¦^´_ 13# ­ã´£³¡ªL

ª©¤j«Â²r!