Ga naar hoofdinhoud

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

We kunnen cellen en hun inhoud regelmatig combineren in Microsoft Excel. Weet u echter de gemakkelijkste 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 meerdere cellen in één cel met VBA-code

De volgende VBA-code kan u helpen om 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 applicaties venster wordt weergegeven, klik op Invoegen > Module, en 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-multiply-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, wordt een ander dialoogvenster weergegeven waarin u de scheidingsteken kunt specificeren. Zie screenshot:

doc celinhoud combineren 2

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

doc celinhoud combineren 3


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

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

1. Selecteer de cellen waarin u de gegevens wilt samenvoegen. En pas dit hulpprogramma toe door op te klikken Kutools > Samenvoegen en splitsen > Combineer rijen, kolommen of cellen zonder gegevens te verliezen.

2. In de Combineer kolommen of rijen dialoogvenster, specificeer de opties die u nodig heeft. Zie screenshot:

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

doc celinhoud combineren 5

3. Dan klikken OK or Solliciteerzijn alle gegevens in meerdere cellen samengevoegd tot één cel. Zie screenshot:

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

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

  Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.


Gerelateerde artikelen


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

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, 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 vermindert honderden muisklikken voor u elke dag!

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