**Please Note: **
This article is written for users of the following Microsoft Excel versions: 2007, 2010, 2013, and 2016. If you are using an earlier version (Excel 2003 or earlier), *this tip may not work for you*. For a version of this tip written specifically for earlier versions of Excel, click here: Summing Digits in a Value.

If you have a cell that contains a value, you may want to devise a way to add together all the digits in the value. For instance, if a cell contains the value 554, you might want to determine the sum of 5+5+4, which is 14.

There are several ways you can approach this task. (Doesn't that always seem the way in Excel?) The first is to use a formula that relies on several functions:

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

This regular formula will sum the digits in any integer value (in cell A1) in a simple, elegant manner. This is not the only possible formula, however. The following is an array formula (terminated by pressing **Ctrl+Shift+Enter**) version of the same formula:

=SUM(1*MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))

Either of these formulas work fine if the value in A1 is a positive whole number. If there are any non-digit characters in the number (such as a negative sign or a decimal point), then the formulas return a #VALUE! error.

These are not the only formulas possible for this type of calculation. You can find some other examples of formulas in the Microsoft Knowledge Base:

http://support.microsoft.com/?kbid=214053

You can also use a user-defined function to return the desired sum. The following macro steps through each digit in the referenced cell and calculates a total. This value is then returned to the user:

Function AddDigits(Number As Long) As Integer Dim i As Integer Dim Sum As Integer Dim sNumber As String sNumber = CStr(Number) For i = 1 To Len(sNumber) Sum = Sum + Mid(sNumber, i, 1) Next AddDigits = Sum End Function

To use this function, just use a formula such as **=AddDigits(A1)** in a cell. An even more compact user-defined function (invoked in the same manner) is the following:

Function AddDigits(ByVal N As Long) As Integer Do While N >= 1 AddDigits = AddDigits + N Mod 10 N = Int(N / 10) Loop End Function

Unlike the earlier macro, this version doesn't convert the cell contents to a string in order to process it. Instead, it steps through each digit of the value, stripping off the last digit and adding it to the total.

*Note:*

If you would like to know how to use the macros described on this page (or on any other page on the *ExcelTips* sites), I've prepared a special page that includes helpful information. Click here to open that special page in a new browser tab.

*ExcelTips* is your source for cost-effective Microsoft Excel training.
This tip (12002) applies to Microsoft Excel 2007, 2010, 2013, and 2016. You can find a version of this tip for the older menu interface of Excel here: **Summing Digits in a Value**.

**Excel Smarts for Beginners!** Featuring the friendly and trusted *For Dummies* style, this popular guide shows beginners how to get up and running with Excel while also helping more experienced users get comfortable with the newest features. Check out *Excel 2013 For Dummies* today!

You can easily use the COMBIN worksheet function to determine the number of combinations that can be made from a given ...

Discover MoreUsing Excel to maintain lists of information is not unusual. When working with the list you may need to determine how ...

Discover MoreNeed to sum a series of cells that fits some regular pattern? Here are several ways that you can get the summation that ...

Discover More**FREE SERVICE:** Get tips like this every week in *ExcelTips,* a free productivity newsletter. Enter your address and click "Subscribe."

2020-05-09 06:53:47

Peter Atherton

Function Add2Digit(value) As Integer

Dim i As Integer, Char As Integer

Dim tmp, tmp2

For i = 1 To Len(value)

Char = Mid(value, i, 1) * 1

If IsNumeric(Char) Then tmp = tmp + Char

Next i

Do

For i = 1 To Len(tmp)

Char = Mid(tmp, i, 1)

tmp2 = tmp2 + Char

Next i

If tmp2 > 10 Then

tmp = tmp2

tmp2 = 0

Else

Add2Digit = tmp2

Exit Do

End If

Loop Until tmp < 10

End Function

2020-05-09 00:51:03

HARISH GUPTA M.R

I have designed a formula which can sum of numbers in a cell which can contain Alphanumeric.

Eg-> If Cell A1 has text "D25R67T726B"

Formula to get sum of numbers would be =SUM(IF(ISNUMBER(VALUE(MID(A16,ROW(INDIRECT("1:"&LEN(A16))),1)))=TRUE,VALUE(MID(A16,ROW(INDIRECT("1:"&LEN(A16))),1)),0))

This is a array formula[should be pushed with CTRL+SHIFT+ENTER]

To get only a count of numbers in a cell would be.

=SUMPRODUCT(--ISNUMBER(VALUE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))))

This can be pushed by a normal enter button.

Thanks

Harish

2016-11-06 07:36:04

Michael (Micky) Avidan

=SUM(IFERROR(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),))

--------------------------

Michael (Micky) Avidan

“Microsoft® Answers" - Wiki author & Forums Moderator

“Microsoft®” MVP – Excel (2009-2017)

ISRAEL

2016-11-05 06:46:46

Willy Vanhaelen

Function AddDigits(Number As String) As Integer

Dim i As Integer, Char As String

For i = 1 To Len(Number)

Char = Mid(Number, i, 1)

If IsNumeric(Char) Then AddDigits = AddDigits + Char

Next

End Function

Got a version of Excel that uses the
ribbon interface (Excel 2007 or later)?
**This site is for you!** If you
use an earlier version of Excel, visit
our *ExcelTips* site focusing on the menu interface.

**FREE SERVICE:** Get tips like this every week in *ExcelTips,* a free productivity newsletter. Enter your address and click "Subscribe."

Copyright © 2020 Sharon Parq Associates, Inc.

## Comments