VBA正则表达式使用
Sub Regulartest() Dim s As String s = "12asd34" Dim myRegExp As Object Dim mMatches As Object Dim mMatch As Object sumValueInText = 0 Set mRegExp = CreateObject("Vbscript.Regexp") With mRegExp .Global = True .IgnoreCase = True .Pattern = "([0-9])?[.]([0-9])+|([0-9])+" Set mMatches = .Execute(s) For Each mMatch In mMatches sumValueInText = sumValueInText + CDbl(mMatch.Value) Next End With MsgBox sumValueInText Set mRegExp = nothing Set mMatches = nothing End Sub
正则表达式规则VBA
http://www.51vba.com/show.aspx?page=1&id=4106&cid=0