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

Jak rychle sloučit řádky na základě jedné hodnoty sloupce a poté provést nějaké výpočty v aplikaci Excel?

Například máte řadu dat a jeden sloupec má duplikáty, nyní chcete sloučit řádky na základě sloupce A (má duplikáty) a poté provést některé výpočty do jiného sloupce na základě sloučených řádků, jak je zobrazeno na obrazovce:

V aplikaci Excel neexistuje žádná rychlá metoda slučování řádků na základě jedné hodnoty sloupce, ale zde představuji
triky, které vám pomohou sloučit duplicitní řádky, pak sečíst nebo provést jiné výpočty v jiném sloupci.


šipka modrá pravá bublina Sloučit řádky na základě jednoho sloupce a poté sečíst hodnoty pomocí VBA

K dispozici je kód VBA, který vám pomůže sloučit duplicitní řádky a poté sečíst další hodnoty sloupců.

Procházení a úpravy více sešitů aplikace Excel / dokumentů aplikace Word jako záložek v prohlížeči Firefox, Chrome, Internet Prozkoumejte 10!

Možná znáte prohlížení více webových stránek ve Firefoxu / Chrome / IE a přepínáte mezi nimi snadným kliknutím na příslušné karty. Zde karta Office podporuje podobné zpracování, které vám umožní procházet více sešitů aplikace Excel nebo dokumentů aplikace Word v jednom okně aplikace Excel nebo v okně aplikace Word a snadno mezi nimi přepínat kliknutím na jejich karty. Klikněte na bezplatnou 30denní zkušební verzi karty Office!

ne excel

1. lis F11 + Alt klíče k povolení Microsoft Visual Basic pro aplikace v okně a poté klikněte na Vložit > Modul a zkopírujte a vložte pod kód VBA do nového Modul okno.

VBA: Sloučit řádky na základě jedné hodnoty sloupce

Sub MG30Nov12()
'Updateby20150519
Dim Rng As Range
Dim InputRng As Range
Dim nRng As Range
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set InputRng = InputRng.Parent.Range(InputRng.Columns(1).Address)
With CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
For Each Rng In InputRng
    If Not .Exists(Rng.Value) Then
        .Add Rng.Value, Rng.Offset(, 1)
    Else
        .Item(Rng.Value).Value = .Item(Rng.Value).Value + Rng.Offset(, 1)
            If nRng Is Nothing Then
                Set nRng = Rng
            Else
                Set nRng = Union(nRng, Rng)
            End If
    End If
Next
If Not nRng Is Nothing Then
    nRng.EntireRow.Delete
End If
End With
End Sub

2. lis F5 nebo klikněte Běh tlačítko pro spuštění VBA a objeví se dialogové okno pro výběr rozsahu dat, který má fungovat. viz screenshot:

doc sloučit sloupce založené na jednom sloupci 3

3. Po výběru pracovního rozsahu klikněte na OK. Nyní byla data sloučena do prvního sloupce a součet hodnot ve druhém sloupci.

doc sloučit sloupce založené na jednom sloupci 4

Poznámka: Tento kód VBA může správně fungovat při slučování na základě prvního sloupce a součtu hodnot ve druhém sloupci.


šipka modrá pravá bublina Sloučit řádky na základě jednoho sloupce a poté sčítat hodnoty s pokročilými kombinovanými řádky

Pokud nejste obeznámeni s kódem VBA, můžete použít Pokročilé kombinování řádků funkce doplňkového nástroje třetí části - Kutools pro Excel snadno a rychle sloučit duplicitní řádky a poté sečíst hodnoty v jiném sloupci.

Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:

1. Vyberte data, která chcete použít, a klikněte na Kutools > Sloučit a rozdělit > Pokročilé kombinování řádků. Viz snímek obrazovky:

doc pokročilý kombinovat řádek 1

2. Potom v rozbalovacím dialogovém okně vyberte sloupec, podle kterého se sloučí další sloupce, a poté klikněte Primární Klíč a klikněte na jiný sloupec a klikněte na Vypočítaná Potom vyberte Součet.

Tip: Pokud má vybraný rozsah záhlaví, zkontrolujte Moje data mají záhlaví, a zkontrolujte Použijte formátované hodnoty po sloučení zachová formátování.

doc sloučit sloupce založené na jednom sloupci 6

3. Pak klikněte na tlačítko Ok. Nyní byla data sloučena na základě primárního sloupce a další je shrnuto. Viz screenshot:

doc sloučit sloupce založené na jednom sloupci 7


šipka modrá pravá bublina Sloučit řádky na základě jednoho sloupce a poté provádět různé operace na jiných sloupcích pomocí Pokročilé kombinace řádků.

Pokročilé kombinování řádků je mocný, protože nejenže může sloučit duplicitní řádky v jednom sloupci, pak sečíst další sloupec, ale také může sloučit duplicitní řádky v jednom sloupci a poté provádět různé operace v ostatních sloupcích.

Předpokládejme, že mám řadu dat, jak je uvedeno níže, a chci kombinovat hodnoty ve sloupci B a hodnoty součtu ve sloupci C na základě sloupce A.
doc sloučit sloupce založené na jednom sloupci 8

Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:

1. Vyberte rozsah dat a klikněte Kutools > Sloučit a rozdělit > Pokročilé kombinování řádků. Viz snímek obrazovky:

doc pokročilý kombinovat řádek 1

2. V Kombinujte řádky na základě sloupce dialog, postupujte takto:

(1) Klikněte na sloupec, podle kterého chcete kombinovat, a klikněte Primární klíč;

doc sloučit sloupce založené na jednom sloupci 10

(2) Klikněte na sloupec, do kterého chcete zkombinovat data, a klikněte Kombinovat, poté vyberte ze seznamu jeden oddělovač, který potřebujete;

doc sloučit sloupce založené na jednom sloupci 11

(3) Klikněte na sloupec, který chcete sečíst hodnoty, a klikněte Vypočítanáa vyberte Součet.

doc sloučit sloupce založené na jednom sloupci 12

3. cvaknutí Ok. Nyní můžete vidět výsledek níže:

doc sloučit sloupce založené na jednom sloupci 13

S Pokročilé kombinování řádků funkce, můžete také sloučit řádky založené na jednom sloupci a poté počítat, průměrovat, uchovat první nebo poslední data v jiných sloupcích. 


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel vyřeší většinu vašich problémů a zvýší vaši produktivitu
80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než
    300
    výkonné funkce
    . Podporuje Office/Excel
    2007-2019 a 365
    . Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce
    30
    -denní zkušební verze zdarma. 60denní záruka vrácení peněz.
karta kte 201905

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 tím
    50%
    a každý den vám sníží stovky kliknutí myší!
officetab dno
Komentáře (3)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Hej, váš modul dříve fungoval i pro velké stoly (např. chcete součet podle roku, ale máte Prodej 1, Prodej 2, Prodej 3....atd). Ale nyní dostane pouze první sloupec správně (Prodej 1) a všechny ostatní nejsou správně sečteny. Změnil jsi něco?
Díky!
Tento komentář byl moderátorem webu minimalizován
Ahoj, IK, možná můžeš použít funkci součtu SUMPRODUCT((A2:A10=”Pen”)*(B2:E10)) k jejich výpočtu jeden po druhém. A2:A10 je rozsah obsahující vyhledávací hodnotu, pero je kritérium, B2:E10 je rozsah, který chcete sečíst na základě kritéria.
Tento komentář byl moderátorem webu minimalizován
Mám stejnou/podobnou otázku. Snažím se sečíst všechny sloupce napravo od referenční buňky, ale sčítá to pouze jeden. Jak dosáhnu toho, abych sečetl všechny položky vpravo jednotlivě?
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL