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

Kako seštevati ali dodajati številke v eno celico v Excelu?

V mnogih primerih boste morda morali sešteti vsa števila v eni celici. Na primer, v celici A1 je besedilni niz razreda 2, razred 1, rezultat dodajanja teh števil pa je 1 + 2 = 3. Ta članek vam bo pokazal načine dodajanja številk v eno celico s podrobnostmi.

Vsota števil v eni celici z uporabniško določeno funkcijo
Enostavno seštejte številke v eno celico z le nekaj kliki


Vsota števil v eni celici z uporabniško določeno funkcijo

Številke lahko v eni celici seštejete s spodnjo uporabniško določeno funkcijo.

1. Pritisnite druga + F11 tipke hkrati, da odprete Aplikacija Microsoft Visual Basic okno.

2. V Ljubljani Aplikacija Microsoft Visual Basic okno, kliknite Vstavi > Moduli. In nato kopirajte spodnji VBA v Moduli okno.

VBA: vsota števil v posamezni celici

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.Pritisnite druga + Q tipke za zapiranje Aplikacija Microsoft Visual Basic okno.

4. Izberite prazno celico za prikaz rezultata. Vanjo vnesite spodnjo formulo in pritisnite Vnesite tipka (A2 je celica, v kateri boste seštevali posamezna števila).

=SUMNUMS(A2)

5. Nato povlecite ročico za polnjenje celice z rezultatom, da uporabite formulo za druge potrebne celice.

Opombe: Ta uporabniško določena funkcija ne velja za celice v obliki števil.


Enostavno seštejte številke v eno celico z le nekaj kliki

Kutools za ExcelJe Vsota števil v celici Formula lahko pripomore k preprostemu seštevanju števil v eni celici (vključno s celico v obliki besedila in celico s formatom števil) samo z več kliki.

Pred vložitvijo vloge Kutools za ExcelProsim najprej ga prenesite in namestite.

1. Izberite prazno celico, da izpišete nadaljevanje. In nato kliknite Kutools > Pomočnik za formulo > Pomočnik za formulo.

2. V Ljubljani Pomočnik za formulo pogovorno okno, nastavite na naslednji način.

2.1) Poiščite in izberite Vsota števil v celici v Izberite formulo škatla;
nasveti: Lahko preverite filter v polje vnesite ključno besedo, da filtrirate formulo, ki jo potrebujete.
2.2) V Celica v polje vnesite celico, ki vsebuje števila, ki jih boste sešteli;
2.3) Kliknite OK . Oglejte si posnetek zaslona:

3. Nato se rezultat zapolni v izbrani celici. Izberite celico z rezultati in povlecite ročico za polnjenje navzdol, da dobite druge rezultate.

  Če želite imeti brezplačen preizkus (30-dan) tega pripomočka, kliknite, če ga želite prenestiin nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.


Preprosto seštevajte številke v eno celico s programom Kutools za Excel


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (8)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
HVALA VELIKA IDEJA ZA MODUL JE NEVERJETNA! NIKOLI NI VEDEL, DA OBSTAJA
Ta komentar je moderator na spletnem mestu minimiziral
Težava tega orodja je, da doda vse številke. Težava je v tem, da 125 + 2 ni 127. Orodje bi ga dodalo kot 1 + 2 + 5 + 2. Ne vem, kako je to koristno za nekoga, ki mora sešteti vse številke. Tudi v primeru ni smiselno ali se zdi praktično. Sem kaj zamudil?
Ta komentar je moderator na spletnem mestu minimiziral
Napačno, če so številke vnesene v celico ločeno, na primer 125 2 in je formula vnesena v naslednjo celico. Celica s formulo bo izračunala 127.
Ta komentar je moderator na spletnem mestu minimiziral
Živijo Michael,
Oprostite za napako. Vnesite naslednjo kodo VBA v okno Module (Koda) in nato uporabite to formulo: =SUMNUMS(A1,""), da sešteje vse števke v celici.

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
Ta komentar je moderator na spletnem mestu minimiziral
Prav tako lahko zelo enostavno vnesete "=" v celico. Torej, če bi imeli celico, ki je bila 3, vendar bi želeli dodati 1+2, bi bila v celici "=1+2".
Ta komentar je moderator na spletnem mestu minimiziral
Imam seznam številk, ki jih želim vsaki številki v vsaki posamezni celici samodejno dodati 30. Je to mogoče?
Ta komentar je moderator na spletnem mestu minimiziral
Kako dodam +1 številko številkam v eni celici (word ali excell ali beležnica, ni pomembno). Ampak pri svojem delu imam pogosto: 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

In jih moram narediti, kot so: 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 To naredim ročno, a morda obstaja hiter način za to?
Ta komentar je moderator na spletnem mestu minimiziral
Funkcijska koda VBA deluje zelo dobro. Hvala vam. 
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL