Excel获取文本中的数字并且合计
效果展示：
自定义宏：
- 打开VBA , ALT + f11
- 插入模块，如下图
- 复制代码，并保存（ctrl + s）
VBA代码：
Function getnumber(cel As Range)
Dim reg As Object
Set reg = CreateObject("VBScript.RegExp")
With reg
.Pattern = "[^\d.-]+"
.Global = True
Dim sum As Double
sum = 0
arr = Split(.Replace(cel, " "), " ")
For i = 1 To UBound(arr) - LBound(arr) - 1 Step 1
sum = sum + CDbl(arr(i))
Next
getnumber = sum
End With
End Function
自愿打赏两毛给小弟买糖吃吃（哈哈，微信）