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.

Preberite več ... Brezplačen prenos... Nakup ...

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!

Preberite več ... Brezplačen prenos... Nakup ...

Komentarji (8)

Ocene še ni. Bodite prvi in ocenite!

Omar

pred približno dvema letoma

#18397

Ta komentar je moderator na spletnem mestu minimiziral

HVALA VELIKA IDEJA ZA MODUL JE NEVERJETNA! NIKOLI NI VEDEL, DA OBSTAJA

Odgovori

Dan

pred približno dvema letoma

#20430

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?

Odgovori

Michael Dan

pred približno tremi meseci

#40977

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.

Odgovori

kristal Michael

pred približno tremi meseci

#41369

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

Odgovori

poročilo

pred približno dvema letoma

#23398

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".

Odgovori

Louanne Zettler

pred približno dvema letoma

#30458

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?

Odgovori

Migle

pred približno dvema letoma

#30584

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?

Odgovori

Eric Hammond

pred približno 1 letom

#36938

Ta komentar je moderator na spletnem mestu minimiziral

Funkcijska koda VBA deluje zelo dobro. Hvala vam.

Odgovori

Tu še ni objavljenih komentarjev

Pustite vaše komentarje

Objava kot gost

Prijava

Ime (obvezno)

E-pošta (obvezno)

Ocenite to objavo:

Ponastavi

0 Znaki

Strinjam se pogoji in stanje