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

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

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

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

中學生 Rank: 2

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

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

複製代碼

靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。

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