VBA中使用正则表达式进行拆分

1、新建excel，双击打开。点击开发工具“VB”,进入工作界面，插入一个模块。

3、在通用窗口输入代码：Function SumValueInText(TargetRange As R锾攒揉敫ange) As DoubleDim mRegExp As RegExpDim mMatches As MatchCollection '匹配字符串集合对象Dim mMatch As Match '匹配字符串Set mRegExp = New RegExpWith mRegExp .Global = True 'True表示匹配所有, False表示仅匹配第一个符合项 .IgnoreCase = True 'True表示不区分大小写, False表示区分大小写 .Pattern = "([0-9])?[.]([0-9])+|([0-9])+" '匹配字符模式 Set mMatches = .Execute(TargetRange.Text) '执行正则查找，返回所有匹配结果的集合，若未找到，则为空 For Each mMatch In mMatches SumValueInText = SumValueInText + CDbl(mMatch.Value) NextEnd With Set mRegExp = Nothing Set mMatches = NothingEnd Function

6、测试成功。