Přejít k hlavnímu obsahu

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 Domů > 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 Domů > 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ší nástroje pro produktivitu v kanceláři

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...

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 snižuje stovky kliknutí myší každý den!
Comments (48)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This doesn't solve the problem with sheet that has some blank cells natively
When you find blank cells and fill with value of the cell above, you accidentally fill all the native-blank cells with unwanted values
This comment was minimized by the moderator on the site
Hello, David,
Thanks for your comment.
Yes, if you use the first method, this problem will occur, but if you want to keep the original blank cells, you'd better to use the second or third method in our article.

Please have a try, hope it can help you!
This comment was minimized by the moderator on the site
Actually there's an easy way to fix this. After step 1, find-replace blank cells with a space.
Then after step 6, find-replace cells with a space with blanks.
Could you consider adding those steps to this tutorial?
This comment was minimized by the moderator on the site
Exatamente o que queria!

Muito obrigada!
This comment was minimized by the moderator on the site
LIFE SAVER! LOVE YOU
This comment was minimized by the moderator on the site
Thanks a lot!! the best solutions
This comment was minimized by the moderator on the site
We can do this using the Broffice Sheets, you must just unmerge it and the data will automatically be repeated in the cells, since they exists before.
This comment was minimized by the moderator on the site
This is amazing. Thank you!
This comment was minimized by the moderator on the site
Thanks... loved it
This comment was minimized by the moderator on the site
The VBA code stalls when an entire columns are selected. There should be a mechanism defending against fruitless running through large loops. Apart from that it works fine.
This comment was minimized by the moderator on the site
thanks very much Saved me lot of time
This comment was minimized by the moderator on the site
Thx!!! It saved me a lot of time!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations