Note: The other languages of the website are Google-translated. Back to English

Hur summerar eller lägger jag till nummer i en enda cell i Excel?

I många fall kan du behöva summera alla siffror i en enda cell. Till exempel finns det en textsträng klass 1 klass 2 i cell A1, och resultatet av att lägga till dessa siffror är 1 + 2 = 3. Den här artikeln visar metoder för att lägga till nummer i en enda cell med detaljer.

Summa nummer i en enda cell med användardefinierad funktion
Summa enkelt siffror i en enda cell med bara flera klick


Summa nummer i en enda cell med användardefinierad funktion

Du kan summera siffror i en enda cell med användardefinierad funktion nedan.

1. Tryck andra + F11 samtidigt för att öppna Microsoft Visual Basic-applikation fönster.

2. I Microsoft Visual Basic-applikation fönstret klickar Insert > Modulerna. Kopiera sedan nedanstående VBA till Modulerna fönster.

VBA: summanummer i en enda 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. Tryck på andra + Q för att stänga Microsoft Visual Basic-applikation fönster.

4. Välj en tom cell för att mata ut resultatet. Ange nedanstående formel och tryck på ange tangent (A2 är cellen där du kommer att summera enstaka nummer).

=SUMNUMS(A2)

5. Dra sedan resultatcellens fyllningshandtag för att tillämpa formeln på andra celler som behövs.

Anmärkningar: Den här användardefinierade funktionen gäller inte celler i nummerformat.


Summa enkelt siffror i en enda cell med bara flera klick

Kutools för ExcelÄr Summanummer i en cell formel kan hjälpa dig att enkelt summera siffror i en enda cell (inklusive textformatcell och nummerformatcell) med endast flera klick.

Innan du ansöker Kutools för ExcelBer ladda ner och installera det först.

1. Välj en tom cell för att mata ut återställningen. Och klicka sedan på Kutools > Formel Helper > Formel Helper.

2. I Formel Helper dialogrutan, konfigurera så här.

2.1) Hitta och välj Summanummer i en cell i Välj en formel låda;
tips: Du kan kontrollera Filter rutan, skriv in ett nyckelord för att filtrera den formel du behöver.
2.2) I Cell rutan, ange en cell som innehåller de siffror du kommer att summera;
2.3) Klicka på OK knapp. Se skärmdump:

3. Därefter fylls resultatet i vald cell. Välj resultatcellen och dra sedan ner Fyllningshandtaget för att få de andra resultaten.

  Om du vill ha en gratis provperiod (30-dag) för detta verktyg, klicka för att ladda ner den, och gå sedan till för att tillämpa operationen enligt ovanstående steg.


Summa enkelt siffror i en enda cell med Kutools för Excel


De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
kte-flik 201905

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
officetab botten
Sortera kommentarer efter
Kommentarer (8)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
TACKSSSSSS SÅ MYCKET MODULIDÉN ÄR FANTASTISK! JAG VISSTE ALDRIG ATT DET FINNS
Denna kommentar minimerades av moderatoren på webbplatsen
Problemet med det här verktyget är att det lägger till alla siffror. Problemet är att 125 + 2 inte är 127. Verktyget skulle lägga till det som 1 + 2 + 5 + 2. Inte säker på hur detta är användbart för någon som behöver lägga till alla siffror. Inte ens i exemplet är det vettigt eller verkar praktiskt. Missade jag något?
Denna kommentar minimerades av moderatoren på webbplatsen
Felaktigt om siffrorna skrivs in i cellen separat, till exempel 125 2 och formeln skrivs in i nästa cell. Cellen med formeln kommer att beräkna 127.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Michael,
Ber om ursäkt för misstaget. Ange följande VBA-kod i fönstret Module (Code) och använd sedan denna formel: =SUMNUMMER(A1,"") för att summera alla siffror i en 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
Denna kommentar minimerades av moderatoren på webbplatsen
Du kan också mycket enkelt bara skriva "=" i cellen. Så om du hade en cell som var 3 men ville lägga till 1+2 skulle det vara "=1+2" i cellen
Denna kommentar minimerades av moderatoren på webbplatsen
Jag har en lista med nummer som jag automatiskt vill lägga till 30 till varje nummer i varje enskild cell. Är det möjligt?
Denna kommentar minimerades av moderatoren på webbplatsen
Hur lägger jag till +1-siffra till siffror i en cell (word eller excell eller anteckningsblock, spelar ingen roll). Men på mitt arbete har jag ofta: 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.

Och jag måste göra dem som: 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. Jag gör det manuellt, men det kanske finns ett snabbt sätt att göra det på?
Denna kommentar minimerades av moderatoren på webbplatsen
VBA-funktionskoden fungerar riktigt bra. Tack. 
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL