Salt la conținutul principal

Cum să însumați sau să adăugați numere într-o singură celulă în Excel?

În multe cazuri, poate fi necesar să însumați toate numerele într-o singură celulă. De exemplu, există un șir de text clasa 1 clasa 2 în celula A1, iar rezultatul adăugării acestor numere este 1 + 2 = 3. Acest articol vă va arăta metodele de adăugare a numerelor într-o singură celulă cu detalii.

Suma numerelor într-o singură celulă cu funcție definită de utilizator
Sumați cu ușurință numerele într-o singură celulă cu doar câteva clicuri


Suma numerelor într-o singură celulă cu funcție definită de utilizator

Puteți însuma numere într-o singură celulă cu funcția definită de utilizator de mai jos.

1. presa Alt + F11 tastele simultan pentru a deschide Aplicația Microsoft Visual Basic fereastră.

2. În Aplicația Microsoft Visual Basic fereastră, faceți clic pe Insera > Module. Și apoi copiați VBA de mai jos în Module fereastră.

VBA: suma numerelor într-o singură celulă

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.Apăsați tasta Alt + Q tastele pentru a închide Aplicația Microsoft Visual Basic fereastră.

4. Selectați o celulă necompletată pentru a afișa rezultatul. Introduceți formula de mai jos și apăsați tasta Intrați tasta (A2 este celula în care veți însuma numere unice).

=SUMNUMS(A2)

5. Apoi trageți mânerul de umplere al celulei rezultate pentru a aplica formula altor celule necesare.

notițe: Această funcție definită de utilizator nu se aplică celulelor în format de număr.


Sumați cu ușurință numerele într-o singură celulă cu doar câteva clicuri

Kutools pentru Excel'S Suma numerelor într-o celulă formula poate ajuta la însumarea cu ușurință a numerelor dintr-o singură celulă (inclusiv celulă în format text și celulă în format numeric) doar cu mai multe clicuri.

Înainte de a aplica Kutools pentru Excel, Vă rugăm să descărcați-l și instalați-l mai întâi.

1. Selectați o celulă necompletată pentru a reda rezultatul. Și apoi faceți clic pe Kutools > Formula Helper > Formula Helper.

2. În Formula Helper casetă de dialog, vă rugăm să configurați după cum urmează.

2.1) Găsiți și selectați Suma numerelor într-o celulă în Alegeți o formulă cutie;
sfaturi: Puteți verifica Filtru caseta, introduceți un cuvânt cheie pentru a filtra formula de care aveți nevoie.
2.2) În Celulă caseta, specificați o celulă care conține numerele pe care le veți însuma;
2.3) Faceți clic pe OK buton. Vedeți captura de ecran:

3. Apoi rezultatul este populat în celula selectată. Selectați celula de rezultat, apoi glisați mânerul de umplere în jos pentru a obține celelalte rezultate.

  Dacă doriți să aveți o perioadă de încercare gratuită (30 de zile) a acestui utilitar, vă rugăm să faceți clic pentru a-l descărca, și apoi mergeți pentru a aplica operația conform pașilor de mai sus.


Sumați cu ușurință numerele într-o singură celulă cu Kutools pentru Excel

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
Comments (8)
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
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations