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

Πώς να αθροίσετε ή να προσθέσετε αριθμούς σε ένα κελί στο 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


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

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (8)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ΕΥΧΑΡΙΣΤΩ ΠΟΛΥ Η ΙΔΕΑ ΤΗΣ ΕΝΟΤΗΤΑΣ ΕΙΝΑΙ ΚΑΤΑΠΛΗΚΤΙΚΗ! ΔΕΝ ΗΞΕΡΑ ΠΟΤΕ ΟΤΙ ΥΠΑΡΧΕΙ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το πρόβλημα με αυτό το εργαλείο είναι ότι προσθέτει όλα τα ψηφία. Το πρόβλημα είναι ότι το 125 + 2 δεν είναι 127. Το εργαλείο θα το προσθέσει ως 1 + 2 + 5 + 2. Δεν είμαι σίγουρος πώς αυτό είναι χρήσιμο σε κάποιον που χρειάζεται να προσθέσει όλους τους αριθμούς. Ακόμη και στο παράδειγμα δεν έχει νόημα ούτε φαίνεται πρακτικό. Εχασα κάτι?
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λανθασμένο εάν οι αριθμοί εισάγονται στο κελί χωριστά, για παράδειγμα 125 2 και ο τύπος εισάγεται στο επόμενο κελί. Το κελί με τον τύπο θα υπολογίσει το 127.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Μιχάλη,
Συγγνώμη για το λάθος. Εισαγάγετε τον ακόλουθο κώδικα VBA στο παράθυρο Module (Code) και, στη συνέχεια, εφαρμόστε αυτόν τον τύπο: =SUMNUMS(A1,"") για να αθροιστούν όλα τα ψηφία σε ένα κελί.

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
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μπορείτε επίσης πολύ εύκολα απλά να πληκτρολογήσετε "=" στο κελί. Έτσι, αν είχατε ένα κελί που ήταν 3 αλλά θέλατε να προσθέσετε 1+2 θα ήταν "=1+2" στο κελί
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχω μια λίστα με αριθμούς που θέλω να προσθέσω αυτόματα 30 σε κάθε αριθμό σε κάθε μεμονωμένο κελί. Είναι αυτό εφικτό?
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς μπορώ να προσθέσω +1 ψηφίο σε αριθμούς σε ένα κελί (word ή excell ή σημειωματάριο, δεν έχει σημασία). Αλλά στη δουλειά μου έχω συχνά: 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.

Και πρέπει να τα κάνω όπως: 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. Το κάνω χειροκίνητα, αλλά μήπως υπάρχει ένας γρήγορος τρόπος να το κάνω;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο κώδικας λειτουργίας VBA λειτουργεί πολύ καλά. Σας ευχαριστώ. 
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL