Jak rychle sloučit sousední řádky se stejnými daty v aplikaci Excel?
Předpokládejme, že máte list se stejnými daty v sousedních řádcích a nyní chcete sloučit stejné buňky do jedné buňky, aby data vypadala úhledně a krásně. Jak rychle a pohodlně sloučíte sousední řádky se stejnými daty? Dnes vám představím rychlý způsob řešení tohoto problému.
Sloučte sousední řádky stejných dat s kódem VBA
Stejná data můžete samozřejmě sloučit s Sloučit a vycentrovat příkaz, ale pokud je třeba sloučit stovky buněk, bude tato metoda časově náročná. Následující kód VBA vám tedy pomůže snadno sloučit stejná data.
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 MergeSameCell()
'Updateby Extendoffice
Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xRows = WorkRng.Rows.Count
For Each Rng In WorkRng.Columns
For i = 1 To xRows - 1
For j = i + 1 To xRows
If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then
Exit For
End If
Next
WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge
i = j - 1
Next
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
3. Poté stiskněte tlačítko F5 klíč ke spuštění tohoto kódu, na obrazovce se zobrazí dialog pro výběr rozsahu pro práci. Viz screenshot:
4. Pak klikněte na tlačítko OK, stejná data ve sloupci A budou sloučena dohromady. Viz screenshot:
Sloučte sousední řádky se stejnými daty pomocí Kutools pro Excel
S Sloučit stejné buňky užitečnost Kutools pro Excel, můžete jedním kliknutím rychle sloučit stejné hodnoty do více sloupců.
| 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 sousední řádky se stejnými daty.
2, klikněte Kutools > Sloučit a rozdělit > Sloučit stejné buňky, viz screenshot:
3. A pak byla stejná data ve vybraných sloupcích sloučena do jedné buňky. Viz screenshot:
Klikněte a stáhněte si Kutools pro Excel a bezplatnou zkušební verzi hned teď!
Chcete-li se o tom dozvědět více, navštivte toto Sloučit stejné buňky vlastnost.
Demo: Sloučit stejné buňky do jedné buňky nebo zrušit sloučení a vyplnit duplicitní hodnoty:
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-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
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!
