你怎么问了2次啊?
这个用公式貌似不大可能做到 用vba自定义函数倒是可以的
alt+f11打开vba编辑器 插入-模块 在空白处复制以下代码 然后再B1输入=MYSUM(A1)即可得到结果,其他行复制公式即可 不明白的q我80871835
Public Function MYSUM(str As String)
'新闻(-6)、网页(-4)、贴吧(-0.5)、图片(-1)
Dim a, i
'str=新闻(-6)、网页(-4)、贴吧(-0.5)、图片(-1)
a = Split(str, ")")
For i = 0 To UBound(a) - 1
MYSUM = MYSUM + Abs(Val(Split(a(i), "(")(1)))
Next
End Function
温馨提示:内容为网友见解,仅供参考