как суммировать все цифры числа в одной ячейке Excel?

[IgorGO]

для тех же целей:
функция:

Function SumDgt(ByVal s As String) As Long
  If s = "" Then SumDgt = 0 Else SumDgt = Val(Left(s, 1)) + SumDgt(Right(s, Len(s) - 1))
End Function

и формула (массива)

=-СУММ(ЕСЛИ(ЕОШ(-ПСТР(A1;СТРОКА($1:$99);1));;-ПСТР(A1;СТРОКА($1:$99);1)))

[Казанский]

Игорь,
вот это красота! Никогда бы не подумал, что тут можно рекурсию использовать
Можно еще сократить:

Function SumDgt(ByVal s As String) As Long
  If Len(s) Then SumDgt = Val(Left(s, 1)) + SumDgt(Mid(s, 2))
End Function

[nerv]

забавы ради

Function SumNumbers(ByVal text As String) As Long
    With CreateObject("vbscript.regexp")
        .Global = True
        .Pattern = "\D+"
        text = .Replace(text, "")
        .Pattern = "(?=\B\d)"
        text = .Replace(text, "+")
        SumNumbers = Evaluate(text)
    End With
End Function

[ikki_pf]

как вариант

Function sn(r As Range) As Byte
  Dim a() As Byte, i%
  a = r.Text
  For i = 0 To UBound(a) Step 2
    If a(i) > 48 And a(i) < 58 Then sn = sn + a(i) - 48
  Next
End Function

[Казанский]

ikki_pf,
надо еще проверять, что a(i+1)=0

[ikki_pf]

в общем случае - да,
но здесь, наверное, проще сначала проверить IsNumeric(r.Value) ?

-------
мне стыдно, но мой вариант неправильный еще и по другой причине:
во-первых, зависит от формата ячейки (и это можно было бы считать фичей, если бы не "во-вторых")
во-вторых, при изменении формата автоматически не пересчитывается.

тогда уж так:

Function sn(r As Range) As Byte
  Dim a() As Byte, i%
  If Not IsNumeric(r.Value) Then Exit Function
  a = CStr(r.Value)
  For i = 0 To UBound(a) Step 2
    If a(i) > 48 And a(i) < 58 Then sn = sn + a(i) - 48
  Next
End Function