Суммирование суммы чисел цифры

[Vitalik85]

Здравствуйте. Как посчитать в Excel сумму цифр цифры?
121=1+2+1=5

[kuklp]

Это как же у Вас 5 получилось?

Public Function SumNum(n&) As Long
    Dim i&
    For i = 1 To Len(CStr(n))
        SumNum = SumNum + CInt(Mid(CStr(n), i, 1))
    Next
End Function

[EducatedFool]

Вы немного неправильно назвали тему - речь идёт о сумме цифр числа.

На форуме множество примеров - выбирайте:
http://yandex.ru/yandsearch?text=Exc...orum.ru&lr=213

[Казанский]

Формула массива, вводится Ctrl+Shift+Enter

=СУММ(--ПСТР(A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)));1))

[Vitalik85]

Спасибо)))

[IgorGO]

если речь идет о получении 1 цифры. пишите число с любым количеством цифр в А1...