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

大家好請問一個數組比如以下 :

A1
2301(1,3,5-7,9-0)

怎麼可以用方程式或VBA 變成以下這樣結果因為括號內的號碼不一致有時是 , 有時是- 請各位指教
23011
23013
23015
23017
23019
23010

樓主熱帖

adrian_9832

中學生 Rank: 2

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

15^#

發表於 2018-10-5 20:44 | 只看該作者

回復 13# 准提部林

版大威猛!

TOP

adrian_9832

中學生 Rank: 2

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

14^#

發表於 2018-10-5 20:42 | 只看該作者

回復 12# n7822123

9-0
即是9,0

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

21301
21302
21303
21304
21305
21306
21307
21308
21309
21300

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-26

13^#

發表於 2018-10-5 12:55 | 只看該作者

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

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

12^#

發表於 2018-10-4 22:05 | 只看該作者

本帖最後由 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

adrian_9832