注:WPS excel和微软的自定义函数一样,以下截图都是Excel中截图的,wps操作一致。文章末尾有wps宏启动教程
效果展示:
自定义宏:
- 打开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
WPS启动宏教程(摘自百度):
https://jingyan.baidu.com/article/4d58d5413d1abf9dd4e9c0e8.html
启动WPS 宏所需补丁:
链接: https://pan.baidu.com/s/1NdDftYLIX_d0KwtKkFCbCQ 密码: xay7
自愿打赏两毛给小弟买糖吃吃(哈哈,微信)