发布网友
共3个回答
热心网友
B1输入=SUM(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))
这个公式可以…
热心网友
按下ALT+F11,菜单:插入-模块,复制下列代码退出
然后在B1输入=text(a1)
以后test公式就可以通用了.
比如你在C1输入类似的数字,要在D1求和,就在D1输入=test(C1)
Public Function test(ByVal n As String) As Long
Dim sum As Long
sum = 0
For x = 1 To Len(n)
sum = sum + Val(Mid(n, x, 1))
Next
test = sum
End Function
**********
方括号的公式果然很好用啊.比自定义函数方便多了.
顶一个:)
热心网友
B1=SUMPRODUCT(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))
普通公式
B1=SUM(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))
数组公式。