Přejít k hlavnímu obsahu

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
Spojte více buněk do jedné buňky s Kutools for 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


Spojte více buněk do jedné buňky s Kutools for Excel bez ztráty dat

Pokud máte Kutools for 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 Podat žádost, 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 zkušební verzi (30-den) této utility, 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ší 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é excelentní dovednosti pomocí Kutools for Excela 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áší rozhraní s kartami do Office 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 (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
my earlier query is about this vba: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 Between, what does the type here, "8" & "2" refers to
This comment was minimized by the moderator on the site
how repeat the process if i have 4 different reference and need to combine them one after the other
This comment was minimized by the moderator on the site
Awesome! Greatly helps! Thank you so much!
This comment was minimized by the moderator on the site
how to merge 2 cell ex:-[a1:41.00] [B1:kWh] [C1:041.00 kWh]
This comment was minimized by the moderator on the site
Thanks very much - was a big help!
This comment was minimized by the moderator on the site
Thamks a lot for the code. Was very helpful.
This comment was minimized by the moderator on the site
Very helpful thank you took me a while to find it but was just what I needed. Note in the VBA code if you want to seperate data with a semicolon, comma or some other charater in the "delim = " " " field put you charater betwen the quotes example: delim = ";". Thanks again.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations