输入
=SUMPRODUCT(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))
详见附图
如果A1单元格是15,那么在B1单元格中输入
=SUMPRODUCT(N(--MID(A1,ROW(INDIRECT("1:"& LEN(A1))),1)))
即可得到结果6
使用VBA编辑如下代码,复制到公用模块中,可在SHEET中使用函数。
Function Sum_No(myRange As Range)
On Error Resume Next
Sum_No = 0
Dim i As Single
For i = 1 To Len(myRange)
Sum_No = Sum_No + Mid(myRange, i, 1) * 1
Next
End Function
两位数的:
=LEFT(A1,1)+RIGHT(A1,1)
设15在A1单元格中,其他单元格输入:
=mod(a1,9)