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

Jak sloučit buňky a vyplnit duplicitní hodnoty v aplikaci Excel?

Pokud máte list, který obsahuje mnoho sloučených buněk, a nyní je musíte zrušit a automaticky vyplnit původní hodnoty ze sloučených buněk, jak je znázorněno na následujících obrázcích. Jak jste se mohli rychle vyrovnat s tímto úkolem?

Oddělte buňky a vyplňte duplicitní data pomocí příkazu Přejít na speciální

Oddělte buňky a vyplňte duplicitní data pomocí kódu VBA

Oddělte buňky a jedním kliknutím vyplňte duplicitní data


šipka modrá pravá bublina Oddělte buňky a vyplňte duplicitní data pomocí příkazu Přejít na speciální

S Přejít na speciální příkaz, můžete buňky sloučit a vyplnit hodnoty. Ale tato metoda je poněkud problematická, proveďte následující kroky:

1. Vyberte sloupce, které mají sloučené buňky.

2, klikněte Home > Sloučit a vycentrovat > Sloučit buňky. Viz snímek obrazovky:

3. A sloučené buňky byly sloučeny a pouze první buňka bude vyplněna původními hodnotami. A poté znovu vyberte rozsah.

4. Pak klikněte na tlačítko Home > Najít a vybrat > Přejít na speciální. V Přejít na speciální dialogové okno vyberte Blanks volba. Viz screenshot:

5. A pak klikněte na tlačítko OK, byly vybrány všechny prázdné buňky v rozsahu. Poté zadejte = a stiskněte Up šipka na klávesnici. Viz screenshot:

6. Pak stiskněte tlačítko Ctrl + Enter klíče, všechny prázdné buňky byly vyplněny původními sloučenými daty. Viz screenshot:


šipka modrá pravá bublina Oddělte buňky a vyplňte duplicitní data pomocí kódu VBA

S následujícím kódem VBA můžete rychle zrušit sloučení buněk a vyplnit hodnoty.

1. Podržte ALT + F11 klíče a otevře se Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující makro do souboru Modulokno.

Sub UnMergeSameCell () 'Upadateby Extendoffice
Dim Rng As Range, xCell As Range xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 8) Application.ScreenUpdating = False Application.DisplayAlerts = False for each Rng In WorkRng If Rng.MergeCells Then With Rng.MergeArea .UnMerge .Formula = Rng.Formula End With End If Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

3. Poté stiskněte tlačítko F5 klíč ke spuštění tohoto kódu, zobrazí se dialogové okno pro výběr rozsahu pro práci, viz screenshot:

4. klikněte OK, poté byly sloučené buňky sloučeny a automaticky vyplněny původní sloučené hodnoty.


šipka modrá pravá bublina Oddělte buňky a jedním kliknutím vyplňte duplicitní data

S Sloučit buňku užitečnost Kutools pro Excel„Můžete sloučit buňky a vyplnit duplicitní data jedním kliknutím, tato metoda je velmi jednoduchá a praktická.

Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů

Po instalaci Kutools pro Excel, můžete postupovat následovně:

1. Vyberte sloupce, které chcete sloučit, a vyplňte data.

2, klikněte Kutools > Sloučit a rozdělit > Sloučit buňky a vyplnit hodnotu, viz screenshot:

3. A sloučené buňky byly sloučeny a naplněny duplicitními hodnotami najednou. Zobrazit snímky obrazovky:


šipka modrá pravá bublina Sloučení buněk a vyplnění duplicitních dat pomocí Kutools pro Excel

Kutools pro Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 30 dnů. Stáhněte si a vyzkoušejte zdarma hned teď!

Související článek:

Sloučit sousední řádky se stejnými daty v aplikaci Excel


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

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 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ých funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 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 o 50% a omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (45)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Děkujeme za zrušení sloučení a duplicitní kód vba
Tento komentář byl moderátorem webu minimalizován
Geniální!! Kód VBA funguje perfektně. opraven můj problém s exportem do CSV :)
Tento komentář byl moderátorem webu minimalizován
VBA fungoval skvěle, až na to, že jsem ho použil pro 16místné číslo a Excel otočí poslední číslici na „0“. Nějaké návrhy, jak to obejít?
Tento komentář byl moderátorem webu minimalizován
Obě metody fungují naprosto v pořádku. Děkuji :-)
Tento komentář byl moderátorem webu minimalizován
OMG, právě jsi mi ušetřil TOLIK ČASU.
Tento komentář byl moderátorem webu minimalizován
to je úžasné. zachránce života
Tento komentář byl moderátorem webu minimalizován
To mi ušetřilo nespočet hodin, moc za to děkuji. Všiml jsem si jedné věci, na kterou jsem narazil u Go To Special Command, která mě na vteřinu zmátla. Potřeboval jsem hledat v dokumentu a funkce ctrl+enter zkopíruje kód, ale ne hodnotu. Doporučuji (pokud chcete hledat jako já) zkopírovat řádek, který byl sloučen, vložit speciální hodnoty. Tím se zbavíte kódu a text bude prohledávatelný. Ještě jednou děkuji za tento úžasný trik.
Tento komentář byl moderátorem webu minimalizován
Dobrá práce. Ale metoda Function fungovala nejprve dobře na prvních 2288 řádcích, pak bez chyby nebo upozornění, prostě neudělala řádky za tím. Mám přes 6000 řádků (řádků). Pokud ručně vyberu jakýkoli rozsah za řádkem 2288, metoda Function nefunguje. Bohužel dodavatel dat sloučí řádky v doručování dat aplikace Excel. Nějaké návrhy? Díky za skvělé informace.
Tento komentář byl moderátorem webu minimalizován
Vaše pokyny jsou stejně jednoduché jako výkonné!!! Dlužím ti večeři.
Tento komentář byl moderátorem webu minimalizován
Pane, zachránil jsi mi život, jsi důvod, proč jsem si tuto stránku přidal do záložek :)!!
Tento komentář byl moderátorem webu minimalizován
Velmi užitečné! Dík!
Tento komentář byl moderátorem webu minimalizován
Velmi nápomocný..! Děkuji mnohokrát.
Tento komentář byl moderátorem webu minimalizován
Zpříjemnili jste mi týden! 8)
Tento komentář byl moderátorem webu minimalizován
Děkuji mnohokrát, toto je velmi užitečný příspěvek. Opravdu mi to šetří spoustu času
Tento komentář byl moderátorem webu minimalizován
Díky moc za vaše řešení...
Tento komentář byl moderátorem webu minimalizován
Úžasný! Pokračujte v dobré práci!
Tento komentář byl moderátorem webu minimalizován
To je opravdu užitečné, ale mám jednu otázku. Existuje způsob, jak upravit kód VBA tak, aby přeskakoval prázdné sloučené buňky? Chci, aby byla buňka zrušena a duplikována pouze v případě, že existuje jiná hodnota než prázdná. Jsem si jistý, že by to nezabralo o moc víc než jedno nebo dvě prohlášení if/else, jsem prostě příliš hloupý, abych to udělal.
Tento komentář byl moderátorem webu minimalizován
Velmi pěkné vysvětlení se snímkem obrazovky... díky moc...
Tento komentář byl moderátorem webu minimalizován
Zachránil můj život! Děkuji mnohokrát!
Tento komentář byl moderátorem webu minimalizován
Dobrý. ušetřený čas díky
Zatím zde nejsou žádné komentáře
Načíst další
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění