Gå til hovedindhold

Hvordan summeres eller tilføjes tal i en enkelt celle i Excel?

I mange tilfælde skal du muligvis summe alle numre i en enkelt celle. For eksempel er der en tekststreng klasse 1 klasse 2 i celle A1, og resultatet af tilføjelse af disse tal er 1 + 2 = 3. Denne artikel viser dig metoder til at tilføje tal i en enkelt celle med detaljer.

Summenumre i en enkelt celle med brugerdefineret funktion
Sæt let tal i en enkelt celle med kun flere klik

Summenumre i en enkelt celle med brugerdefineret funktion

Du kan summere tal i en enkelt celle med nedenstående brugerdefineret funktion.

1. Trykke andre + F11 taster samtidigt for at åbne Microsoft Visual Basic-applikation vindue.

2. i Microsoft Visual Basic-applikation vindue, skal du klikke på indsatte > Moduler. Og kopier derefter nedenstående VBA til Moduler vindue.

VBA: summer tal i en enkelt celle

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. Tryk på andre + Q taster for at lukke Microsoft Visual Basic-applikation vindue.

4. Vælg en tom celle for at output resultatet. Indtast nedenstående formel i den, og tryk på Indtast nøgle (A2 er den celle, hvor du vil summere enkeltnumre).

=SUMNUMS(A2)

5. Træk derefter udfyldningshåndtaget i resultatcellen for at anvende formlen på andre nødvendige celler.

Bemærk: Denne brugerdefinerede funktion gælder ikke celler i nummerformat.

Sæt let tal i en enkelt celle med kun flere klik

Kutools til Excel's Summenumre i en celle formel kan hjælpe med let at summere tal i en enkelt celle (inklusive tekstformatcelle og nummerformatcelle) med kun flere klik.

Før påføring Kutools til Excel, Bedes download og installer det først.

1. Vælg en tom celle for at output resut. Og klik derefter på Kutools > Formelhjælper > Formelhjælper.

2. i Formelhjælper dialogboksen, skal du konfigurere som følger.

2.1) Find og vælg Summenumre i en celle i Vælg en formel boks;
Tips: Du kan tjekke filtre i feltet, skriv et nøgleord for at filtrere den formel, du har brug for.
2.2) I Cell boks, angiv en celle, der indeholder de tal, du vil summe;
2.3) Klik på OK knap. Se skærmbillede:

3. Derefter udfyldes resultatet i den valgte celle. Vælg resultatcellen, og træk dens fyldhåndtag ned for at få de andre resultater.

  Hvis du vil have en gratis prøveperiode (30 dage) af dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.

Sæt let tal i en enkelt celle med Kutools til Excel

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier  |   Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar   |  Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler   |  Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt:  12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
Comments (8)
No ratings yet. Be the first to rate!
Eric Hammond
Eric Hammond
This comment was minimized by the moderator on the site
The VBA function code works really well. Thank you. 
Reply
0
0
Migle
Migle
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?
Reply
0
0
Louanne Zettler
Louanne Zettler
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?
Reply
0
0
Em
Em
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
Reply
0
0
Dan
Dan
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?
Reply
0
0
Michael
Michael     Dan
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.
Reply
0
0
crystal
crystal     Michael
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
Reply
Report
0
0
Omar
Omar
This comment was minimized by the moderator on the site
THANKSSSSSS SOOO MUCH THE MODULE IDEA IS AMAZING ! I NEVER KNEW IT EXISTED
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations