麻辣家族討論版版 » Excel程式區 » 數組括號內的數字分折

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2018-10-3 21:47 | 只看該作者

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

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

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

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

樓主熱帖

收藏

　暱稱: 阿龍

中學生 Rank: 2

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

2^#

發表於 2018-10-4 00:49 | 只看該作者

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

回復 1# adrian_9832

要用一些解字串的技巧
VBA如下，把A1解析後放到B欄
公式找別人幫忙吧.......我工作表函數會的不多
只知道instr 可以用 find 取代
但是split 不知道工作表函數有沒有類似的

Sub TEST()
Ar = Split(Replace([A1], "-", ","), ",")
Ar(0) = Right(Ar(0), Len(Ar(0)) - InStr(Ar(0), "("))
An = UBound(Ar)
Ar(An) = Left(Ar(An), Len(Ar(An)) - 1)
[B1].Resize(An + 1) = Application.Transpose(Ar)
End Sub

複製代碼

AAA.rar (10.16 KB)

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

　暱稱: 阿龍

中學生 Rank: 2

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

3^#

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

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

回復 2# n7822123

更正! 忘記加前面的數字了

Sub TEST()
Ar = Split(Replace([A1], "-", ","), ",")
A0 = Left(Ar(0), InStr(Ar(0), "(") - 1)
Ar(0) = Right(Ar(0), Len(Ar(0)) - InStr(Ar(0), "("))
An = UBound(Ar)
Ar(An) = Left(Ar(An), Len(Ar(An)) - 1)
For i = 0 To An
Ar(i) = A0 & Ar(i)
Next i
[B1].Resize(An + 1) = Application.Transpose(Ar)
End Sub

複製代碼

BBB.rar (10.53 KB)

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-28

熱烈參與勳章

4^#

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

https://blog.xuite.net/hcm19522/twblog/585478117

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

版主 Rank: 7 Rank: 7 Rank: 7

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

5^#

發表於 2018-10-4 11:28 | 只看該作者

9-0 ???
有沒有9-2之類的,
舉的例子只有一個, 程式寫了也是白寫,
上傳較完整的數據吧!!!

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 17
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-11-19

2016猴年全勤獎章

6^#

發表於 2018-10-4 11:44 | 只看該作者

Sub zz()
Dim s$
s = "2301(1,3,5-7,9-0)"
With CreateObject("vbscript.regexp")
.Pattern = "\d+"
.Global = True
k = Split(s, "(")
If .test(k(1)) Then
Set t = .Execute(k(1))
For Each x In t
Debug.Print k(0) & x
Next
End If
End With
End Sub

複製代碼

中學生 Rank: 2

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

7^#

發表於 2018-10-4 13:57 | 只看該作者

回復 1# adrian_9832

沒法還原吧
如何知道 23016 不是其中一組解

23011
23013
23015
23016
23017
23019
23010

版主 Rank: 7 Rank: 7 Rank: 7

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

8^#

發表於 2018-10-4 14:17 | 只看該作者

5-7
應指5.6.7吧!

中學生 Rank: 2

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

9^#

發表於 2018-10-4 17:40 | 只看該作者

我打少6那個號碼抱歉多謝各位大大們的幫助

中學生 Rank: 2

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

10^#

發表於 2018-10-4 17:41 | 只看該作者

23011
23013
23015
23016
23017
23019
23010

靜思自在 : 小事不做、大事難成。

返回列表下一主題上一主題