Summing up digits in a cell

[Sai Krishna]

Hi,

i need to add all the digits in a cell. For example, if I have a number 58
in a cell, the adjacent cell should return a value of 13.
regards
krishna

 

[Gaurav]

If you only have 2 digits, try this

=SUM(LEFT(A2,1),RIGHT(A2,1))

 

[Gary''s Student]

Try this small UDF:

Function digicount(r As Range) As Integer
Dim n As Integer
digicount = 0
v = r.Value
L = Len(v)
For i = 1 To L
n = Mid(v, i, 1)
digicount = digicount + n
Next
End Function

 

[Brad]

=SUMPRODUCT(--MID(A4,ROW($A$1:INDEX($A:$A,LEN(A4),1)),1))

 

[Sai Krishna]

Thanks gaurav, this has helped for two digits.
regards
krishna

 

[Sai Krishna]

Thanks a ton Brad. Was looking for something as useful and simple as this.
regards
krishna

 

[Brad]

You're welcome
--
Wag more, bark less

Thanks a ton Brad. Was looking for something as useful and simple as this.
regards
krishna

 

[Dana DeLouis]

... this has helped for two digits.

Another option for 1-2 digit numbers ...

=A1-9*INT(A1/10)

--
Dana DeLouis