VBA用逗號分隔包含數字的字符串。

1.在VBA編輯環境中選擇“工具-引用”打開添加項目引用對話框，找到並勾選“Microsoft VBScript正則表達式*”。* "在列表中(最後兩個版本號無所謂)並確認；

2.參考下面的代碼(SplitTextWithComma是壹個實際的分段函數，傳入壹個字符串，返回分段後的字符串數組；TestSplitFunction用於測試該分割函數的效果，分割後的結果將打印在即時窗口中):

選項顯式

Sub TestSplitFunction()

Const strSourceText = "A，B，" 12，345，678 "，C，" 34，678 " "

Dim oSplittedItems作為集合

暗淡條紋

set oSplittedItems = SplitTextWithComma(strSourceText)

對於oSplittedItems中的每個strItem

調試。打印系統

然後

末端接頭

函數SplitTextWithComma(strSourceText As String)作為集合

Dim oRegExp作為新的正則表達式

Dim oMatch As Match

Dim oMatches As MatchCollection

Dim oSubMatch作為字符串

作為新系列

oRegExp。全局=真

oRegExp。模式= "([^,""]+)|"([^""]+]" "

設置oMatches = oRegExp。執行(strSourceText)

對於oMatches中的每個oMatch

如果奧馬奇。子匹配(1)& lt；& gt那就空著

oResult。添加oMatch。子匹配項(1)

其他

oResult。添加oMatch。價值

如果…就會結束

然後

Set SplitTextWithComma = oResult

結束功能

上一篇:川c是哪裏的車牌

下一篇:memset(ch,0,sizeof(ch)); 是什麽意思