ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¼Æ²Õ¬A¸¹¤ºªº¼Æ¦r ¤À§é

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



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

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2018-10-4 22:10 ½s¿è

¦^´_ 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ºØ?
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

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

TOP

¦^´_ 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

TOP

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

ª©¤j«Â²r!

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD