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

Jak kombinovat obsah více buněk bez ztráty dat v aplikaci Excel?

Můžeme často kombinovat buňky a jejich obsah v aplikaci Microsoft Excel. Najdete však nejjednodušší způsob, jak kombinovat obsah buněk? Zde budeme hovořit o tom, jak snadno a rychle kombinovat obsah buněk v aplikaci Excel.

Kombinujte více buněk do jedné buňky pomocí kódu VBA
Kombinujte více buněk do jedné buňky pomocí aplikace Kutools pro Excel bez ztráty dat


Kombinujte více buněk do jedné buňky pomocí kódu VBA

Následující kód VBA vám pomůže zkombinovat více buněk do jedné buňky a kód můžete použít pomocí následujících kroků:

1, klikněte Vývojka > Visual Basic, nový Microsoft Visual Basic pro aplikace Zobrazí se okno, klikněte na Vložit > Modula do modulu zadejte následující kód:

Sub MergeOneCell()
'Updateby20140128
Dim Rng As Range
Dim WorkRng As Range
Dim Sigh As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Sigh = Application.InputBox("Symbol merge", xTitleId, "", Type:=2)
xOut = ""
Application.DisplayAlerts = False
For Each Rng In WorkRng
    xOut = xOut & Rng.Value & Sigh
Next
With WorkRng
    .Merge
    .Value = VBA.Left(xOut, VBA.Len(xOut) - 1)
End With
Application.DisplayAlerts = True
End Sub

2. Pak klikněte na tlačítko doc-multiplikovat-výpočet-3 tlačítko k provedení kódu. Zobrazí se dialogové okno pro výběr rozsahu pro práci s VBA. Zobrazit snímky obrazovky:

3, klikněte Ok, zobrazí se další dialogové okno pro zadání oddělovače. Viz screenshot:

doc kombinovat obsah buňky 2

4, klikněte Ok, pak se obsah buňky ve vybraném rozsahu sloučí do buňky. Viz screenshot:

doc kombinovat obsah buňky 3


Kombinujte více buněk do jedné buňky pomocí aplikace Kutools pro Excel bez ztráty dat

Pokud máte Kutools pro Excel nainstalován, můžete pohodlně kombinovat obsah buněk ve více sloupcích nebo řádcích bez použití vzorců.

1. Vyberte buňky, které chcete sloučit data. A použijte tento nástroj kliknutím Kutools > Sloučit a rozdělit > Kombinujte řádky, sloupce nebo buňky bez ztráty dat.

2. V Kombinujte sloupce nebo řádky V dialogovém okně zadejte požadované možnosti. Viz screenshot:

  • (1.) Vyberte Kombinujte do jedné buňky pod Kombinovat vybrané buňky podle následujících možností;
  • (2.) Určete oddělovač kombinovaných dat. Každý obsah můžete oddělit mezerou, ničím, středníkem nebo konkrétním textem. A také můžete zobrazit kombinovaný obsah na novém řádku.

doc kombinovat obsah buňky 5

3. Pak klikněte na tlačítko OK or aplikovat, všechna data ve více buňkách byla sloučena do jedné buňky. Viz screenshot:

Poznámka: Tento nástroj může také pomoci kombinovat buňky vybraných sloupců. Můžete kombinovat jméno a příjmení do jedné buňky s celým jménem, ​​jak je uvedeno níže.

Pak můžete vidět, že jména a příjmení jsou kombinována a umístěna v buňkách celého jména.

  Pokud chcete mít bezplatnou (30denní) zkušební verzi tohoto nástroje, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.


Související články


Ukázka: Kombinujte / slučujte více buněk do jedné bez ztráty dat


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 (7)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Velmi užitečné děkuji, chvíli mi trvalo, než jsem to našel, ale bylo to přesně to, co jsem potřeboval. Poznámka v kódu VBA, pokud chcete oddělit data středníkem, čárkou nebo nějakým jiným znakem v poli "delim = " " ", uveďte znak mezi příklad uvozovek: delim = ";". Ještě jednou děkuji.
Tento komentář byl moderátorem webu minimalizován
Díky moc za kód. Bylo to velmi užitečné.
Tento komentář byl moderátorem webu minimalizován
Díky moc - byla to velká pomoc!
Tento komentář byl moderátorem webu minimalizován
jak sloučit 2 buňky ex:-[a1:41.00] [B1:kWh] [C1:041.00 kWh]
Tento komentář byl moderátorem webu minimalizován
Úžasný! Skvěle pomáhá! Děkuji mnohokrát!
Tento komentář byl moderátorem webu minimalizován
jak opakovat proces, pokud mám 4 různé reference a potřebuji je zkombinovat jeden po druhém
Tento komentář byl moderátorem webu minimalizován
můj dřívější dotaz se týká tohoto vba:Sub MergeOneCell() 'Updateby20140128 Dim Rng As Range Dim WorkRng As Range Dim Sigh As String On Error Pokračovat Další xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng ("RenggeB") ", xTitleId, WorkRng.Address, Type:=8) Povzdech = Application.InputBox("Symbol merge", xTitleId, ",", Type:=2) xOut = "" Application.DisplayAlerts = False For Every Rng In WorkRng xOut = xOut & Rng.Value & Sigh Next With WorkRng .Merge .Value = VBA.Left(xOut, VBA.Len(xOut) - 1) End With Application.DisplayAlerts = True End Sub Mezi, co znamená tento typ, "8 " & "2" odkazuje
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í