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

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

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

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

中學生 Rank: 2

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

2016猴年全勤獎章

1^# 跳轉到 »

發表於 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

複製代碼

靜思自在 : 虛空有盡．我願無窮，發願容易行願難。

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