èªå®ä¹ä¸ä¸ªå½æ°ãç¨èªå®ä¹çå½æ°æ¥æåæ°å
å¨éç¨çªå£è¾å ¥ä»£ç ï¼
Function SumValueInText(TargetRange As Range) As Double
Dim mRegExp As RegExp
Dim mMatches As MatchCollection 'å¹é å符串éå对象
Dim mMatch As Match 'å¹é å符串
Set mRegExp = New RegExp
With 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)
Next
End With
Set mRegExp = Nothing
Set mMatches = Nothing
End Function