Μετάβαση στο κύριο περιεχόμενο

Πώς να αθροίσετε ή να προσθέσετε αριθμούς σε ένα κελί στο Excel;

Σε πολλές περιπτώσεις, ίσως χρειαστεί να αθροίσετε όλους τους αριθμούς σε ένα μόνο κελί. Για παράδειγμα, υπάρχει μια συμβολοσειρά κειμένου Class 1 Grade 2 στο κελί A1 και το αποτέλεσμα της προσθήκης αυτών των αριθμών είναι 1 + 2 = 3. Αυτό το άρθρο θα σας δείξει μεθόδους προσθήκης αριθμών σε ένα μόνο κελί με λεπτομέρειες.

Αθροίστε αριθμούς σε ένα κελί με λειτουργία που καθορίζεται από το χρήστη
Συγκεντρώστε εύκολα αριθμούς σε ένα κελί με μόνο μερικά κλικ


Αθροίστε αριθμούς σε ένα κελί με λειτουργία που καθορίζεται από το χρήστη

Μπορείτε να αθροίσετε αριθμούς σε ένα κελί με την παρακάτω συνάρτηση που καθορίζεται από το χρήστη.

1. Τύπος άλλος + F11 ταυτόχρονα για να ανοίξετε το Εφαρμογή Microsoft Visual Basic παράθυρο.

2. Στο Εφαρμογή Microsoft Visual Basic παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Και στη συνέχεια αντιγράψτε το παρακάτω VBA στο Μονάδα μέτρησης παράθυρο.

VBA: άθροισμα αριθμών σε ένα μόνο κελί

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.Πατήστε το άλλος + Q πλήκτρα για να κλείσετε το Εφαρμογή Microsoft Visual Basic παράθυρο.

4. Επιλέξτε ένα κενό κελί για έξοδο του αποτελέσματος. Εισαγάγετε τον παρακάτω τύπο και πατήστε το εισάγετε κλειδί (A2 είναι το κελί στο οποίο θα αθροίσουμε μεμονωμένους αριθμούς).

=SUMNUMS(A2)

5. Στη συνέχεια, σύρετε τη λαβή πλήρωσης του κελιού αποτελεσμάτων για να εφαρμόσετε τον τύπο σε άλλα κελιά που χρειάζεστε.

Note: Αυτή η συνάρτηση που καθορίζεται από το χρήστη δεν ισχύει για κελιά σε αριθμητική μορφή.


Συγκεντρώστε εύκολα αριθμούς σε ένα κελί με μόνο μερικά κλικ

Kutools για Excel'S Αθροίστε αριθμούς σε ένα κελί Ο τύπος μπορεί να σας βοηθήσει να αθροίσετε εύκολα αριθμούς σε ένα κελί (συμπεριλαμβανομένου κελιού μορφής κειμένου και κελιού μορφής αριθμού) με μόνο μερικά κλικ.

Πριν από την εφαρμογή Kutools για Excel, σας παρακαλούμε κατεβάστε και εγκαταστήστε το πρώτα.

1. Επιλέξτε ένα κενό κελί για έξοδο της επαναφοράς. Και μετά κάντε κλικ Kutools > Βοηθός τύπου > Βοηθός τύπου.

2. Στο Βοηθός τύπου πλαίσιο διαλόγου, διαμορφώστε τα εξής.

2.1) Βρείτε και επιλέξτε Αθροίστε αριθμούς σε ένα κελί στο Επιλέξτε έναν τύπο κουτί;
Συμβουλές: Μπορείτε να ελέγξετε το Φίλτρα πλαίσιο, πληκτρολογήστε μια λέξη-κλειδί για να φιλτράρετε τον τύπο που χρειάζεστε.
2.2) Στο Κύτταρο πλαίσιο, καθορίστε ένα κελί που περιέχει τους αριθμούς που θα αθροίσετε.
2.3) Κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:

3. Στη συνέχεια, το αποτέλεσμα συμπληρώνεται σε επιλεγμένο κελί. Επιλέξτε το κελί αποτελεσμάτων και, στη συνέχεια, σύρετε τη λαβή πλήρωσης προς τα κάτω για να λάβετε τα άλλα αποτελέσματα.

  Εάν θέλετε να έχετε μια δωρεάν δοκιμή (30-ημερών) αυτού του βοηθητικού προγράμματος, κάντε κλικ για να το κατεβάσετεκαι μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.


Αθροίστε εύκολα αριθμούς σε ένα κελί με το Kutools για Excel

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

🤖 Kutools AI Aide: Επανάσταση στην ανάλυση δεδομένων με βάση: Ευφυής Εκτέλεση   |  Δημιουργία κώδικα  |  Δημιουργία προσαρμοσμένων τύπων  |  Αναλύστε δεδομένα και δημιουργήστε γραφήματα  |  Επίκληση Λειτουργιών Kutools...
Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

Περιγραφή


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
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