Como somar os algarismos de um número inteiro em um célula?


#1

Olá, preciso de uma Fórmula onde eu consiga somar os Algarismos de um número. Vou explicar melhor:

A1=1245

B1 (seria a soma dos algarismos de A1), ou seja, B1=1+2+4+5.

O resultado de B1 teria que dar = 12

Espero ter explicado direito e conto com vocês. Estou precisando muito dessa fórmula!
Desde já agradeço!


#2

Segue minha contribuição via UDF (User Defined Function)

Function SOMAR_CARACTERES(texto As String)
Dim mystring As String
Dim num As Long

For num = 1 To Len(texto)
    If Mid(texto, num, 1) <= 9 Then
        mystring = mystring + Mid(texto, num, 1) & "+"
    End If
Next

SOMAR_CARACTERES = Evaluate("=" & Left(mystring, Len(mystring) - 1))

End Function

Calcular String.xls (33,5 KB)


#3

Obrigado xlarruda,

A VBA funcionou perfeitamente!