效果展示：
自定义宏：
- 打开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
自愿打赏两毛给小弟买糖吃吃（哈哈，微信）
最后
以上就是单身月饼最近收集整理的关于Excel获取文本中的数字并且合计的全部内容，更多相关Excel获取文本中内容请搜索靠谱客的其他文章。
本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。
发表评论 取消回复