可以vba编写函数，不知道WPS支持不， 运用正则表达式编写函数代码如下Function 平均数(str) Dim reg As Object Dim mstr, m, sumn, count Set reg = CreateObject("VBScript.RegExp") With reg .Global = True .Pattern = "\d+\.?\d{0,}" Set mstr = .Execute(str) End With sumn = 0 count = 0 For Each m In mstr sumn = sumn + Val(m) count = count + 1 Next m 平均数 = sumn / countEnd Function附件：测试文件
匿名回答于2019-08-13 07:02:03
