## How to sum or adding numbers in a single cell in Excel?

In many cases, you may need to sum all numbers in a single cell. For example, there is a text string Class 1 Grade 2 in cell A1, and the result of adding these numbers is 1+2=3. This article will show you methods of adding numbers in a single cell with details.

#### Sum numbers in a single cell with User-defined function

You can sum numbers in a single cell with the below User-defined function.

1. Press Alt + F11 keys simultaneously to open the Microsoft Visual Basic Application window.

2. In the Microsoft Visual Basic Application window, click Insert > Module. And then copy the below VBA into the Module window.

VBA: sum numbers in a single cell

``````Function SumNums(pWorkRng As Range, Optional xDelim As String = " ") As Double
Dim arr As Variant
Dim xIndex As Long
arr = Split(pWorkRng, xDelim)
For xIndex = LBound(arr) To UBound(arr) Step 1
SumNums = SumNums + VBA.Val(arr(xIndex))
Next
End Function``````

3.Press the Alt + Q keys to close the Microsoft Visual Basic Application window.

4. Select a blank cell to output the result. Enter the below formula into it and press the Enter key (A2 is the cell in which you will sum single numbers).

=SUMNUMS(A2)

5. Then drag the Fill Handle of the result cell to apply the formula to other needed cells.

Note: This user-defined function does not apply to cells in number format.

#### Easily sum numbers in a single cell with only several clicks

Kutools for Excel’s Sum numbers in a cell formula can help to easily sum numbers in a single cell (including text format cell and number format cell) with several click only.

1. Select a blank cell to output the resut. And then click Kutools > Formula Helper > Formula Helper.

2. In the Formula Helper dialog box, please configure as follows.

2.1) Find and select Sum numbers in a cell in the Choose a formula box;
Tips: You can check the Filter box, type in a keyword to filter the formula you need.
2.2) In the Cell box, specify a cell which contains the numbers you will sum;
2.3) Click the OK button. See screenshot:

3. Then the result is populated in selected cell. Select the result cell, and then drag its Fill Handle down to get the other results.

If you want to have a free trial (30-day) of this utility, please click to download it, and then go to apply the operation according above steps.

### Best Office Productivity Tools

 🤖 Kutools AI Aide: Revolutionize data analysis based on: Intelligent Execution   |  Generate Code  |  Create Custom Formulas  |  Analyze Data and Generate Charts  |  Invoke Kutools Functions… Popular Features: Find, Highlight or Identify Duplicates   |  Delete Blank Rows   |  Combine Columns or Cells without Losing Data   |   Round without Formula ... Super Lookup: Multiple Criteria VLookup  |   Multiple Value VLookup  |   VLookup Across Multiple Sheets   |   Fuzzy Lookup .... Advanced Drop-down List: Quickly Create Drop Down List   |  Dependent Drop Down List   |  Multi-select Drop Down List .... Column Manager: Add a Specific Number of Columns  |  Move Columns  |  Toggle Visibility Status of Hidden Columns  |  Compare Ranges & Columns ... Featured Features: Grid Focus   |  Design View   |   Big Formula Bar   |  Workbook & Sheet Manager   |  Resource Library (Auto Text)   |  Date Picker   |  Combine Worksheets   |  Encrypt/Decrypt Cells   |  Send Emails by List   |  Super Filter   |   Special Filter (filter bold/italic/strikethrough...) ... Top 15 Toolsets:  12 Text Tools (Add Text, Remove Characters, ...)   |   50+ Chart Types (Gantt Chart, ...)   |   40+ Practical Formulas (Calculate age based on birthday, ...)   |   19 Insertion Tools (Insert QR Code, Insert Picture from Path, ...)   |   12 Conversion Tools (Numbers to Words, Currency Conversion, ...)   |   7 Merge & Split Tools (Advanced Combine Rows, Split Cells, ...)   |   ... and more

Supercharge Your Excel Skills with Kutools for Excel, and Experience Efficiency Like Never Before. Kutools for Excel Offers Over 300 Advanced Features to Boost Productivity and Save Time.  Click Here to Get The Feature You Need The Most...

#### Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

• Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
• Open and create multiple documents in new tabs of the same window, rather than in new windows.
• Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The VBA function code works really well. Thank you.
This comment was minimized by the moderator on the site
How do I add +1 digit to numbers in one cell (word or excell or notepad, doesn't matter). But at My work I often have: 14,17,28,31,35,38,50,53,70,73,80,83,90,93,120,123,135,138,150,153,165,168,180,183,210,213,250,253,275,278,300,303 something like that.

And I need to make them like: 15,18,29,32,36,39,51,54,71,74,81,84,91,94,121,124,136,139,151,154,166,169,181,184,211,214,251,254,276,279,301,304. I do it manually, but maybe there is a fast way to do it?
This comment was minimized by the moderator on the site
I have a list of numbers that I want to automatically add 30 to each number in each single cell. Is that possible?
This comment was minimized by the moderator on the site
You can also very easily just type "=" in the cell. So if you had a cell that was 3 but wanted to add 1+2 it would be "=1+2" in the cell
This comment was minimized by the moderator on the site
The problem with this tool is that it adds all the digits. The problem is 125 + 2 is not 127. The tool would add it as 1 + 2 + 5 + 2. Not sure how this is useful to someone that needs to add all the numbers. Even in the example it does not make sense or seem practical. Did I miss something?
This comment was minimized by the moderator on the site
Incorrect if the numbers are entered into the cell separately, for example 125 2 and the formula is entered into the next cell. The cell with the formula will calculate 127.
This comment was minimized by the moderator on the site
Hi Michael,
Sorry for the mistake. Please enter the following VBA code into the Module (Code) window, and then apply this formula: =SUMNUMS(A1,"") to sum all digits in a cell.

``````Function SumNums(pWorkRng As Range, Optional xDelim As String = " ") As Double
'Updated by ExtendOffice 20221122
If pWorkRng.CountLarge > 0 Then Exit Function
On Error Resume Next
Application.Volatile

Dim arr As Variant
Dim xIndex As Long
If xDelim <> "" Then
arr = Split(pWorkRng, xDelim)
For xIndex = LBound(arr) To UBound(arr) Step 1
SumNums = SumNums + VBA.Val(arr(xIndex))
Next
Else
For xIndex = 1 To Len(pWorkRng) Step 1
If IsNumeric(Mid(pWorkRng, xIndex, 1)) Then
SumNums = SumNums + VBA.Val(Mid(pWorkRng, xIndex, 1))
End If
Next
End If
End Function``````
This comment was minimized by the moderator on the site
THANKSSSSSS SOOO MUCH THE MODULE IDEA IS AMAZING ! I NEVER KNEW IT EXISTED
There are no comments posted here yet