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

Πώς να αθροίσετε αριθμούς σε αγκύλες μόνο στο Excel;

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


Αθροίστε αριθμούς εντός παρενθέσεων μόνο με τον τύπο

Για να αθροίσετε τους αριθμούς μόνο σε αγκύλες, μπορείτε πρώτα να εξαγάγετε τους αριθμούς που βρίσκονται σε αγκύλες και, στη συνέχεια, να τους προσθέσετε.

1. Επιλέξτε ένα κενό κελί δίπλα στο κελί που θέλετε να συνοψίσετε τους αριθμούς του σε αγκύλες, για παράδειγμα B2, εισαγάγετε αυτόν τον τύπο
=IF(ISERROR(MID(A1,FIND("(",A1)+1,(FIND(")",A1))-(FIND("(",A1)+1))),0,(MID(A1,FIND("(",A1)+1,(FIND(")",A1))-(FIND("(",A1)+1)))+0),
και μετά σύρετε τη λαβή αυτόματης πλήρωσης προς τα κάτω για εξαγωγή αριθμών που βρίσκονται σε αγκύλες από κάθε κελί. Δείτε το στιγμιότυπο οθόνης:
αριθμοί εγγράφων σε παρένθεση 2

Άκρο: στον τύπο, το A1 είναι το κελί από το οποίο θέλετε να εξαγάγετε τους αριθμούς εντός παρενθέσεων.

2. Επιλέξτε ένα κελί στο οποίο θα τοποθετήσετε το αποτέλεσμα αθροίσματος, εισάγετε = SUM (B1: B8), και πατήστε εισάγετε κλειδί. Δείτε το στιγμιότυπο οθόνης:
αριθμοί εγγράφων σε παρένθεση 3

Συμβουλή: στον τύπο, B1: B8 είναι οι αριθμοί που έχετε εξαγάγει από την αρχική λίστα συμβολοσειρών κειμένου και θέλετε να συνοψίσετε.


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

Μπορείτε επίσης να εφαρμόσετε μια καθορισμένη συνάρτηση για να αθροίσετε αριθμούς εντός παρενθέσεων.

1. Τύπος Alt + F11 πλήκτρα για ενεργοποίηση Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον παρακάτω κώδικα στο κενό σενάριο.

VBA: Αθροίστε αριθμούς σε παρένθεση

Function SumBracket(Target As Range) As Double
'UpdatebyExtendoffice20160901
Dim xCell As Range
Dim xObjs As Object, xObj As Object
Dim xSum As Double
Set xObjs = CreateObject("VBScript.RegExp")
xSum = 0
With xObjs
    .Global = True
    .Pattern = "\((\d+(\.\d+)?)\)"

    For Each xCell In Target
      If xCell.Value <> "" Then
        For Each xObj In xObjs.Execute(xCell.Value)
            xSum = xSum + xObj.submatches(0)
        Next
      End If
    Next
End With
SumBracket = xSum
End Function

αριθμοί εγγράφων σε παρένθεση 4

2. Αποθηκεύστε τον κωδικό και μεταβείτε για να επιλέξετε ένα κελί που θα τοποθετήσει το αποτέλεσμα και εισαγάγετε αυτόν τον τύπο = SumBracket (A1: A8), πατήστε εισάγετε κλειδί. Δείτε το στιγμιότυπο οθόνης:
αριθμοί εγγράφων σε παρένθεση 5


Αθροίστε αριθμούς εντός παρενθέσεων μόνο με το Kutools για Excel

Στην πραγματικότητα, με Kutools για Excel'S Εξαγωγή κειμένου συνάρτηση για εξαγωγή αριθμών εντός αγκυλών και, στη συνέχεια, εφαρμόστε το Αθροίστε απόλυτες τιμές λειτουργία για να αθροίσουμε τους αριθμούς.

Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. 

Μετά την εγκατάσταση Kutools για Excel, κάντε τα παρακάτω :(Δωρεάν λήψη Kutools για Excel τώρα!)

1. Επιλέξτε τις συμβολοσειρές που θέλετε να εξαγάγετε αριθμούς σε αγκύλες και κάντε κλικ στο Κούτουλs> Κείμενο > Εξαγωγή κειμένου. Δείτε το στιγμιότυπο οθόνης:
αριθμοί εγγράφων σε παρένθεση 6

2. Στο Εξαγωγή κειμένου διαλόγου, εισάγετε (*) μέσα στο Κείμενο πλαίσιο κειμένου και κάντε κλικ στο Πρόσθεση για να την προσθέσετε στο Λίστα αποσπασμάτων. Στη συνέχεια κάντε κλικ στο κουμπί Ok, και για να επιλέξετε ένα κελί για να τοποθετήσετε τους εξαγόμενους αριθμούς στο παράθυρο διαλόγου, C1 για παράδειγμα. Δείτε το στιγμιότυπο οθόνης:

Σημείωση: Εάν υπάρχουν άλλοι κανόνες εξαγωγής στο Λίστα αποσπασμάτων ενότητα, καταργήστε την επιλογή αυτών των κανόνων εξαγωγής και ελέγξτε μόνο τον νέο κανόνα προσθήκης αποσπάσματος του (*).


αριθμοί εγγράφων σε παρένθεση 7 πυροβόλησε το βέλος δεξιά αριθμοί εγγράφων σε παρένθεση 8

3. κλικ OK, και τώρα εξάγονται οι αριθμοί σε παρένθεση. Από προεπιλογή, οι αριθμοί εντός παρενθέσεων αναγνωρίζονται ως αρνητικοί, πρέπει να αθροίσετε τις απόλυτες τιμές τους.
αριθμοί εγγράφων σε παρένθεση 9

4. Επιλέξτε ένα κελί στο οποίο θα τοποθετήσετε το αποτέλεσμα υπολογισμού, κάντε κλικ στο Kutools > Βοηθός τύπου > Μαθηματικά & Trig > Αθροίστε απόλυτες τιμές. Δείτε το στιγμιότυπο οθόνης:
αριθμοί εγγράφων σε παρένθεση 10

5. Στο Βοηθός τύπου διαλόγου, επιλέξτε το εύρος που περιέχει τους εξαγόμενους αριθμούς αριθμός πλαίσιο κειμένου, C1: C8 σε αυτήν την περίπτωση. Κάντε κλικ Ok, έχουν προστεθεί οι απόλυτες τιμές των αριθμών. Δείτε το στιγμιότυπο οθόνης:

αριθμοί εγγράφων σε παρένθεση 11 πυροβόλησε το βέλος δεξιά αριθμοί εγγράφων σε παρένθεση 12

Υπόδειξη. Εάν θέλετε να έχετε μια δωρεάν δοκιμή του Εξαγωγή κειμένου και Άθροισμα απόλυτης τιμήςλειτουργία, μεταβείτε στη δωρεάν λήψη του 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 (15)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello Sunny,

I have a question as well. I have an excel sheet with numbers and some of them are in brackets. I want to add the values of the numbers in a row. Basically:
50 (50*) 100 150 = 350
How can I add (=sum) of all of them, including the one in brackets? I'ld appreciate your advise.
Best, Anna
This comment was minimized by the moderator on the site
Vielen Dank Sonnig,

jetzt ich sehe wo war das Problem. Sie schreiben im VBA und Zelle "." statt wie bei mir "," Ich habe im VBA diese Zeile:
.Pattern = "\((\d+(\.\d+)?)\)"
in diese:
.Pattern = "\((\d+(\,\d+)?)\)"
geändert und dann funktioniert alles perfekt.

Noch mall vielen, vielen Dank.
Schöne Grüße

Wojtek
This comment was minimized by the moderator on the site
...ich meinte addieren Dezimalbruche 🙂
This comment was minimized by the moderator on the site
Hi, Wojtek, if you just want to sum the decimal numbers only, try this code:
Function SumBracket(Target As Range) As Double
'UpdatebyExtendoffice20221209
Dim xCell As Range
Dim xObjs As Object, xObj As Object
Dim xSum As Double
Dim xNum As Integer
On Error Resume Next
Application.Volatile
Set xObjs = CreateObject("VBScript.RegExp")
xSum = 0
With xObjs
    .Global = True
    .Pattern = "\((\d+(\.\d+)?)\)"

    For Each xCell In Target
      If xCell.Value <> "" Then
        For Each xObj In xObjs.Execute(xCell.Value)
            xSum = xSum + Val(xObj.submatches(0)) - Int(Val(xObj.submatches(0)))
        Next
      End If
    Next
End With
SumBracket = xSum
End Function
This comment was minimized by the moderator on the site
Hallo Sonnig,
vielen Dank für die schnelle Antwort 😀. Um die Ganze klar zu machen gebe ich ein Beispiel meiner Aufgabe:

a(5), b(2,5), c(0,25) = 7,75

wie gesagt, mit:

a(5), b(2), c(21) im eine Zelle funktioniert die erste Makro super.

Vielen Dank und schöne Grüße
Wojtek
This comment was minimized by the moderator on the site
Sorry, Wojtek, I do undestand Geman, I just translate your question by Google so that I do not get your question clearly. Could you give me more description, for example, the data structure, are they in a cell or in different cell, in a column or in a row, what result you want.
This comment was minimized by the moderator on the site
Hallo Sonnig,

noch mal vielen Dank für die Mühe.

Geht um Summe alle Zahlen die in der Klammer stehen...
Erste Zelle: 458/1(2,5), 458/2(11), 458/3(0,75)
Zweite Zelle: Summe von 2,5 und 11 und 0,75
alles was in der Klammer steht in der erste Zelle sollte summiert sein. das Ergebnis soll in der Zweite Zelle erscheinen.

Vielen Dank und schöne Grüße
Wojtek
This comment was minimized by the moderator on the site
Hallo,
danke, Makro funktioniert super, aber leider nur mit Ganze Zahl, nicht mit Bruchzahl. Wäre das möglich zu ändern?
This comment was minimized by the moderator on the site
I'm sorry, I meant adding the numbers outside the bracket.
This comment was minimized by the moderator on the site
Hi, Adduar, I do not find a formula to solve your problem, maybe you only can use the Extract Text tool of Kutools for Excel to extract the numbers first, and then sum them, the conditions are *( and )*.
This comment was minimized by the moderator on the site
How to add numbers within the bracket?
This comment was minimized by the moderator on the site
Hi, How do I modify the pattern to sum everything between F-( and )


Example of my data is: F-(10) F-(12) E-(8)


the sum would be 22


thanks
This comment was minimized by the moderator on the site
Hi, Andy, please try this code:
Function SumBracket(Target As Range) As Double
'UpdatebyExtendoffice20160901
Dim xCell As Range
Dim xObjs As Object, xObj As Object
Dim xSum As Double
Set xObjs = CreateObject("VBScript.RegExp")
xSum = 0
With xObjs
.Global = True
.Pattern = "\-\((\d+(\.\d+)?)\)"

For Each xCell In Target
If xCell.Value <> "" Then
For Each xObj In xObjs.Execute(xCell.Value)
xSum = xSum + xObj.submatches(0)
Next
End If
Next
End With
SumBracket = xSum
End Function
This comment was minimized by the moderator on the site
Hello, is there a Google App Script version of the VBA script. I would like to use it in Google Sheets.
Thanks. :D
This comment was minimized by the moderator on the site
Sorry I do not know
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations