WPS excel获取数字求和

注：WPS excel和微软的自定义函数一样，以下截图都是Excel中截图的，wps操作一致。文章末尾有wps宏启动教程

效果展示：

---

自定义宏：

1. 打开VBA , ALT + f11
2. 插入模块，如下图

   

3. 复制代码，并保存（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

自愿打赏两毛给小弟买糖吃吃（哈哈，微信）