adrian_9832

hcm19522 發表於 2018-10-4 10:22

    公式上要改動嗎? 少了一個6 抱歉..

n7822123

回復 11# adrian_9832

無言.....原來你的"-" 不是區格符號 而是連續的意思?

5-7=5,6,7
那9-0 應該如何解釋?
一、9,10
二、9,8,7,6,5,4,3,2,1,0
三、9,0

如果是第3種，那是不是表示你的位數都只有1位，個數最多就0~9  共10種?

准提部林

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
即是9,0  

0為最大的號碼  
所以如果括號有0 比如 2130(1-0) 即是

21301
21302
21303
21304
21305
21306
21307
21308
21309
21300

adrian_9832

回復 13# 准提部林

版大威猛!