返回列表 上一主題 發帖

[發問] 數組括號內的數字 分折

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



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

TOP

本帖最後由 n7822123 於 2018-10-4 22:10 編輯

回復 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種?
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

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

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

21301
21302
21303
21304
21305
21306
21307
21308
21309
21300

TOP

回復 13# 准提部林

版大威猛!

TOP

        靜思自在 : 為人處世要小心細心,但不要「小心眼」。
返回列表 上一主題