excel 合值

=SUMPRODUCT(--MID(A1,ROW(OFFSET($A$1,,,LEN(A1))),1))

或者：

=SUMPRODUCT(--MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1))

按下ALT+F11,插入-模块,复制下列代码.
以后你只要输入=SUMMARY(12345),就会同来结果6,或在A1输入12345,在B1输入=SUMMARY(A1),B1就会等于6

Public Function summary(n As Long) As Long
Dim sum As Long
Dim b As Long
b = n
Do While b >= 10
sum = 0
For i = 1 To Len(b)
sum = sum + Val(Mid(b, i, 1))
Next
b = sum
Loop
summary = b
End Function