Přejít k hlavnímu obsahu

Jak sčítat čísla v závorkách pouze v aplikaci Excel?

Pokud existuje seznam textových řetězců a chcete pouze sečíst všechna čísla v závorkách, jak je uvedeno níže, jak to můžete rychle zvládnout? V tomto článku vám představím několik triků, jak sčítat čísla v závorkách pouze v aplikaci Excel.


Součet čísel v závorkách pouze se vzorcem

Chcete-li sečíst čísla pouze v závorkách, můžete nejprve extrahovat čísla, která jsou v závorkách, a poté je sečíst.

1. Vyberte prázdnou buňku vedle buňky, kterou chcete sečíst její čísla v závorkách, například B2, zadejte tento vzorec
=IF(ISERROR(MID(A1,FIND("(",A1)+1,(FIND(")",A1))-(FIND("(",A1)+1))),0,(MID(A1,FIND("(",A1)+1,(FIND(")",A1))-(FIND("(",A1)+1)))+0),
a potom přetáhněte rukojeť automatického vyplňování dolů a z každé buňky extrahujte čísla, která jsou v závorkách. Viz snímek obrazovky:
čísla doc sum v závorkách 2

Tip: ve vzorci je A1 buňka, ze které chcete extrahovat čísla v závorkách.

2. Vyberte buňku, do které umístíte výsledek sčítání, zadejte = SUM (B1: B8), a stiskněte tlačítko vstoupit klíč. Viz snímek obrazovky:
čísla doc sum v závorkách 3

Tip: ve vzorci B1: B8 jsou čísla, která jste extrahovali z původního seznamu textového řetězce a chcete je shrnout.


Součet čísel v závorkách pouze s definovanou funkcí

Můžete také použít definovanou funkci na součet čísel v závorkách.

1. lis Alt + F11 klíče k povolení Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modula vložte níže uvedený kód do prázdného skriptu.

VBA: Součet čísel v závorkách

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

čísla doc sum v závorkách 4

2. Uložte kód, vyberte buňku, do které se umístí výsledek, a zadejte tento vzorec = SumBracket (A1: A8), lis vstoupit klíč. Viz snímek obrazovky:
čísla doc sum v závorkách 5


Součet čísel v závorkách pouze s programem Kutools pro Excel

Vlastně s Kutools pro ExcelJe Extrahujte text funkce pro extrahování čísel v závorkách a poté použití Součet absolutních hodnot funkce sečíst čísla.

Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. 

Po instalaci Kutools pro Excel, prosím, postupujte takto :(Stažení zdarma Kutools pro Excel hned teď!)

1. Vyberte řetězce, které chcete extrahovat čísla v závorkách, a klepněte na Kutools> Text > Extrahujte text. Viz snímek obrazovky:
čísla doc sum v závorkách 6

2. V Extrahujte text dialogové okno, zadejte (*) do Text textové pole a klikněte na přidat přidat to Seznam výpisů. Pak klikněte na tlačítko Ok, a pro výběr buňky pro umístění extrahovaných čísel do rozbalovacího dialogu, například C1. Viz snímek obrazovky:

Poznámka: Pokud v systému existují další pravidla pro těžbu Seznam výpisů sekce, prosím zrušte zaškrtnutí těchto pravidel pro extrakci a zkontrolujte pouze nově přidané pravidlo pro extrakci z (*).


čísla doc sum v závorkách 7 výstřel šipka vpravo čísla doc sum v závorkách 8

3. cvaknutí OKa nyní jsou čísla v závorkách extrahována. Ve výchozím nastavení jsou čísla v závorkách rozpoznána jako záporná, je třeba sečíst jejich absolutní hodnoty.
čísla doc sum v závorkách 9

4. Vyberte buňku, do které umístíte výsledek výpočtu, klikněte na Kutools > Pomocník vzorců > Math & Trig > Součet absolutních hodnot. Viz snímek obrazovky:
čísla doc sum v závorkách 10

5. V Pomocník vzorců V dialogovém okně vyberte rozsah, do kterého jsou extrahována čísla Číslo textové pole, v tomto případě C1: C8. Klepněte na Ok, byly přidány absolutní hodnoty čísel. Viz snímek obrazovky:

čísla doc sum v závorkách 11 výstřel šipka vpravo čísla doc sum v závorkách 12

Spropitné. Pokud chcete mít bezplatnou zkušební verzi Extrahujte text a Součet absolutní hodnotyfunkce, přejděte zdarma ke stažení Kutools pro Excel nejprve a poté přejděte k použití operace podle výše uvedených kroků.

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Popis


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
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