Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe de inhoud van meerdere cellen te combineren zonder gegevens te verliezen in Excel?

We kunnen cellen en hun inhoud vaak in Microsoft Excel combineren. Maar vindt u de eenvoudigste manier om celinhoud te combineren? Hier zullen we het hebben over het eenvoudig en snel combineren van celinhoud in Excel.

Combineer meerdere cellen in één cel met VBA-code

Combineer meerdere cellen in één cel met Kutools voor Excel zonder gegevens te verliezen


Combineer eenvoudig twee kolommen in één (combineer voor- en achternaam) in Excel:

De Combineren kolommen of rijen utillity van Kutools for Excel kan u helpen cellen van geselecteerde kolommen eenvoudig in één te combineren. U kunt bijvoorbeeld voor- en achternaam snel combineren in een volledige naamcel met de instellingen zoals hieronder afgebeeld.

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
  • Alles hergebruiken: Voeg de meest gebruikte of complexe formules, grafieken en al het andere toe aan uw favorieten en hergebruik ze snel in de toekomst.
  • Meer dan 20-tekstfuncties: Nummer uit tekststring halen; Een deel van de tekst extraheren of verwijderen; Converteer getallen en valuta naar Engelse woorden.
  • Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Dubbele rijen en som samenvoegen.
  • Split gereedschap: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen.
  • Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Stuur gepersonaliseerde e-mails in bulk naar meerdere ontvangers.
  • Super filter: Maak geavanceerde filterschema's en pas deze toe op alle bladen; Soort per week, dag, frequentie en meer; filters door vetgedrukt, formules, commentaar ...
  • Meer dan 300 krachtige functies; Werkt met Office 2007-2019 en 365; Ondersteunt alle talen; Eenvoudig te implementeren in uw onderneming of organisatie.

Combineer meerdere cellen in één cel met VBA-code


De volgende VBA-code kan u helpen meerdere cellen in één cel te combineren en u kunt de code toepassen met de volgende stappen:

1. Klikken ontwikkelaar > Visual Basic, Een nieuw Microsoft Visual Basic voor toepassingen venster wordt weergegeven, klik bijvoegsel > moduleen voer de volgende code in de module in:

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. Dan klikken doc-vermenigvuldigen-berekening-3 knop om de code uit te voeren. Er verschijnt een dialoogvenster waarin u een bereik kunt selecteren om met de VBA te werken. Zie screenshots:

3. Klikken Ok, een ander dialoogvenster wordt weergegeven om de scheidingsmachine op te geven. Zie screenshot:

doc combineer celinhoud 2

4. Klikken Ok, dan wordt de celinhoud in het geselecteerde bereik gecombineerd in een cel. Zie screenshot:

doc combineer celinhoud 3


Combineer meerdere cellen in één cel met Kutools voor Excel zonder gegevens te verliezen

Als je Kutools for Excel geïnstalleerd, kunt u eenvoudig celinhoud van meerdere kolommen of rijen combineren zonder formules te gebruiken.

Kutools for Excel : met meer dan 300 handige Excel invoegtoepassingen, gratis om te proberen zonder beperking in 60-dagen.

1. Selecteer de cellen waaruit u de gegevens wilt samenvoegen. En gebruik dit hulpprogramma door op te klikken Kutools > Combineren.

2. In de Kolommen of rijen combineren dialoogvenster, geeft u de opties op die u nodig hebt. Zie screenshot:

  • (1.) Selecteer Combineer in een enkele cel voor Om geselecteerde cellen te combineren op basis van de volgende opties;
  • (2.) Geef een scheidingsteken voor de gecombineerde gegevens op. U kunt elke inhoud scheiden met spatie, niets, puntkomma of specifieke tekst. En u kunt de gecombineerde inhoud ook weergeven in een nieuwe regel.

doc combineer celinhoud 5

3. Dan klikken OK or Van toepassing zijn, alle gegevens in meerdere cellen zijn samengevoegd in één cel. Zie screenshot:

Opmerking: dit hulpprogramma kan ook helpen cellen van geselecteerde kolommen te combineren. U kunt voor- en achternaam combineren in een cel met volledige naam, zoals onderstaand screenshot.

Vervolgens kunt u zien dat de voor- en achternaam gecombineerd zijn en zich in de volledige naamcellen bevinden.

Tip.Als u een gratis proefversie van dit hulpprogramma wilt hebben, gaat u naar download de software vrij eerst en vervolgens de bewerking volgens de bovenstaande stappen toepassen.


Gerelateerde artikelen


Demo: combineer / voeg meerdere cellen samen tot één zonder gegevens te verliezen

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!


Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 30-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    jennifer · 3 years ago
    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
  • To post as a guest, your comment is unpublished.
    jennifer · 3 years ago
    how repeat the process if i have 4 different reference and need to combine them one after the other
  • To post as a guest, your comment is unpublished.
    TJ · 4 years ago
    Awesome! Greatly helps! Thank you so much!
  • To post as a guest, your comment is unpublished.
    priya · 4 years ago
    how to merge 2 cell ex:-[a1:41.00] [B1:kWh] [C1:041.00 kWh]
  • To post as a guest, your comment is unpublished.
    Tom · 5 years ago
    Thanks very much - was a big help!
  • To post as a guest, your comment is unpublished.
    Romilla W · 6 years ago
    Thamks a lot for the code. Was very helpful.
  • To post as a guest, your comment is unpublished.
    Damon R · 6 years ago
    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.