KutoolsforOffice — Eén oplossing, vijf krachtige tools.Meer bereiken met minder moeite.

Excel-handleiding: Kolommen samenvoegen, rijen, cellen

AuteurSun Wijzigingsdatum

Het combineren van kolommen, rijen of cellen komt regelmatig voor in ons dagelijks werk met Excel: denk aan het samenvoegen van Voornaam en Achternaam uit twee kolommen tot één kolom voor de Volledige naam, het samenvoegen van rijen op basis van hetzelfde ID waarbij de bijbehorende waarden worden opgeteld, of het combineren van een celbereik tot één enkele cel. Deze handleiding behandelt alle mogelijke scenario’s voor het combineren van kolommen, rijen en cellen in Excel en biedt daarvoor diverse oplossingen.

Navigatie in deze handleiding

1 Kolommen samenvoegen/rijen in één cel

1,1 Kolommen samenvoegen/rijen in één cel met spatie/komma of andere scheidingstekens

1,11 Het ampersand-teken (&) gebruiken

1,12 De functie AANSLUITEN gebruiken (Excel 2016 of eerdere versies)

1,13 De functie SAMENVOEGEN of TEKST.SAMENVOEGEN gebruiken (Excel 2019 of Excel 365)

1,14 Kladblok gebruiken (alleen voor het samenvoegen van kolommen)

Uitbreiding: Kolommen samenvoegen/rijen in één cel met regeleinde als scheidingsteken

1,2 Kolommen samenvoegen/rijen in één cel zonder lege cellen

1,21 De functie TEKST.SAMENVOEGEN gebruiken (Excel 2019 of Excel 365)

1,22 Het ampersand-teken (&) gebruiken

1,23 Aan het einde van cellen toevoegen met VBA-code

1,3 Kolommen samenvoegen/rijen/cellen in één cel zonder gegevensverlies

1,4 Twee kolommen samenvoegen indien leeg

1,41 De ALS-functie gebruiken

1,42 VBA gebruiken

2. Rijen samenvoegen die dezelfde ID hebben

2,1 Rijen samenvoegen met dezelfde ID en gescheiden door komma of andere scheidingstekens

2,11 VBA gebruiken

2,12 De ALS-functie gebruiken om hulpkolommen toe te voegen

2,13 Een handige tool gebruiken – Geavanceerd samenvoegen van rijen

2,2 Rijen samenvoegen met dezelfde ID en enkele berekeningen uitvoeren

2,21 De functie Consolideren gebruiken

2,22 VBA gebruiken

2,23 Een handige tool gebruiken – Geavanceerd samenvoegen van rijen

2,3 Aangrenzende rijen met dezelfde waarde samenvoegen

2,31 VBA gebruiken

2,32 Een handige tool gebruiken – Voeg dezelfde cellen samen

3. Cellen samenvoegen

3,1. Meerdere rijen en kolommen samenvoegen tot één cel

3,11 Het ampersand-teken (&) gebruiken

3,12 De functie AANSLUITEN gebruiken (Excel 2016 of eerdere versies)

3. 13 Gebruik de functie SAMENVOEGEN of TEKST.SAMENVOEGEN (beschikbaar in Excel 2019 en Excel 365)

3,14 Kolommen samenvoegen/rijen/cellen in één cel zonder gegevensverlies

3,2. Cellen samenvoegen tot één enkele kolom of één enkele rij

3,21 Benoem het bereik en gebruik de INDEX-functie (alleen voor één enkele kolom)

3,22 VBA (alleen voor één enkele kolom)

3,23 Een handige tool gebruiken – Bereik transformeren

3,3 Kolommen stapelen in één kolom zonder duplicaten

3,31 Kopiëren en plakken en Dubbele items verwijderen

3,32 VBA gebruiken

3,4. Cellen samenvoegen en de opmaak behouden

3,41 De TEKST-functie in formule insluiten

3,42 Microsoft Word gebruiken

3,43 Een handige tool gebruiken – Samenvoegen zonder gegevensverlies

3,5 Cellen samenvoegen tot een datum

3,51 De DATUM-functie gebruiken

 

In deze handleiding geef ik enkele voorbeelden om de methoden uit te leggen. U kunt de verwijzingen aanpassen aan uw eigen behoeften bij gebruik van de onderstaande VBA-code of formules, of u kunt de voorbeeldbestanden downloaden om de methoden direct in de praktijk te proberen.

doc-voorbeeld Klik om het voorbeeldbestand te downloaden


1 Kolommen samenvoegen/rijen combineren tot één cel

1,1 Kolommen samenvoegen/rijen in één cel met spatie/komma of andere scheidingstekens

Het combineren van kolommen of rijen tot één cel, waarbij het resultaat wordt gescheiden door komma’s, spaties of andere scheidingstekens—zoals in de onderstaande afbeelding wordt weergegeven—is de meest gebruikte methode in Excel.

Kolommen samenvoegen in één cel
kolommen samenvoegen tot één cel
Rijen samenvoegen in één cel
rijen samenvoegen tot één cel

1,11 Met behulp van het ampersand-symbool (&)

In Excel wordt het ampersand-symbool (&) doorgaans gebruikt om teksten eenvoudig en efficiënt samen te voegen.

Voorbeeld: Combineer Voornaam (kolom A) en Achternaam (kolom B) tot Volledige naam

Selecteer een cel waar u het gecombineerde resultaat wilt plaatsen en typ een formule zoals deze:

=A2&„ "&B2

info-icoonIn de formule wordt & gebruikt om de teksten samen te voegen; A2 en B2 zijn de twee teksten die u wilt combineren; „ " is het scheidingsteken (een spatie) dat de twee teksten in de resultaatcel van elkaar scheidt. Wilt u een komma als scheidingsteken gebruiken? Typ dan gewoon een komma tussen dubbele aanhalingstekens: ",".

Druk op Enter om het gecombineerde resultaat te krijgen en sleep vervolgens de automatische invulgreep omlaag om de samengevoegde resultaten te verkrijgen.

Voorbeeld: Combineer het nummer (rij 15) en de naam (rij 16) in één cel.

Als u rijen wilt samenvoegen tot één cel, past u de celverwijzingen en het scheidingsteken in de formule naar wens aan en sleept u de automatische invulgreep naar rechts om de samengevoegde resultaten te verkrijgen.
 gebruik het ampersand-teken om rijen samen te voegen

1,12 Met behulp van de functie CONCATENATE (Excel 2016 of eerdere versies)

Als u Excel 2016 of een eerdere versie gebruikt, helpt de functie CONCATENATE u verder.

Syntaxis van AANSLUITEN
CONCATENATE (text1,[text2],…)

Voor meer informatie over de functie CONCATENATE gaat u naar: CONCATENATE.

Voorbeeld: Combineer namen (kolom F) en adres (kolom G) tot één kolom

Selecteer een cel waar u het gecombineerde resultaat wilt plaatsen en typ een formule zoals deze:

=CONCATENATE(F2,",",G2)

info-icoonIn de formule zijn F2 en G2 de twee teksten die u wilt combineren; de komma (",") fungeert als scheidingsteken tussen de twee teksten in de resultaatcel. Wilt u een spatie als scheidingsteken gebruiken? Typ dan gewoon een spatie tussen dubbele aanhalingstekens: „ ".

Druk op Enter om het gecombineerde resultaat te krijgen en sleep vervolgens de automatische invulgreep omlaag om de samengevoegde resultaten te verkrijgen.
gebruik de FUNCTIE SAMENVOEGEN om kolommen samen te voegen

Pas de celverwijzingen en het scheidingsteken eenvoudig aan naar wens en sleep de automatische invulgreep naar rechts om rijen te combineren.
gebruik de FUNCTIE SAMENVOEGEN om rijen samen te voegen

1,13 Met behulp van de functie CONCAT of TEXTJOIN (Excel 2019 of Excel 365)

Als u Excel 2019 of Excel 365 gebruikt, zijn CONCAT en TEXTJOIN waarschijnlijk de beste keuze.

Syntaxis van SAMENVOEGEN
CONCAT (text1,[text2],…)

Voor meer informatie over de functie CONCAT gaat u naar: CONCAT.

De werking van de functie CONCAT is identiek aan die van CONCATENATE. Om voornaam en achternaam uit twee afzonderlijke kolommen samen te voegen tot één kolom, gebruikt u de volgende formule:

=CONCAT(A21,„ ",B21)

info-icoonIn de formule zijn A21 en B21 de twee teksten die u wilt combineren; `„ "` is het scheidingsteken (een spatie) dat de twee teksten in de resultaatcel van elkaar scheidt. Wilt u een ander scheidingsteken gebruiken? Typ het dan tussen dubbele aanhalingstekens `„"`.

Druk op Enter om het gecombineerde resultaat te verkrijgen en sleep daarna de automatische invulgreep omlaag om alle samengevoegde resultaten te genereren.
gebruik de FUNCTIE SAMENV als functie om kolommen samen te voegen

In tegenstelling tot het combineren van kolommen, moet u bij het samenvoegen van rijen, nadat u de eerste formule hebt ingevoerd, de automatische invulgreep naar rechts slepen totdat u alle samengevoegde resultaten heeft verkregen.

Syntaxis van TEKST.SAMENVOEGEN
TEXTJOIN (delimiter, ignore_empty, text1, [text2], ...)

Voor meer informatie over de functie TEXTJOIN gaat u naar: TEXTJOIN.

Om Kolommen samenvoegen of rijen te combineren met TEXTJOIN:

=TEXTJOIN(",",TRUE,E21:G21))

info-icoonIn de formule is E21:G21 een aaneengesloten bereik dat gecombineerd moet worden. „ " is het scheidingsteken (een spatie) dat de teksten in de resultaatcel van elkaar scheidt. Wilt u een ander scheidingsteken gebruiken, typ dit dan tussen dubbele aanhalingstekens („"). De logische waarde TRUE geeft aan dat lege cellen worden genegeerd bij het combineren; als u lege cellen juist wél wilt meenemen, vervangt u TRUE door FALSE.

Druk op Enter om het gecombineerde resultaat te verkrijgen en sleep daarna de automatische invulgreep omlaag om alle samengevoegde resultaten te genereren.

Lege cellen negeren
gebruik de FUNCTIE TEKST.SAMENV om kolommen samen te voegen en lege cellen te negeren
Lege cellen meenemen
gebruik de FUNCTIE TEKST.SAMENV om kolommen samen te voegen inclusief lege cellen

1,14 Met behulp van Kladblok (alleen voor het combineren van kolommen)

1. Met Kladblok kunt u ook kolommen samenvoegen (dit heeft geen invloed op het samenvoegen van rijen).

Selecteer het bereik dat u tot één cel wilt samenvoegen en druk op Ctrl+C om het bereik te kopiëren.
kopieer het gegevensbereik

2. Open een Kladblok en druk op Ctrl + V om het gekopieerde bereik te plakken.
Open Kladblok en plak de gegevens

3. Selecteer een tab tussen twee teksten in Kladblok en druk op Ctrl+H om de functie Vervangen te openen; er staat nu een tabsymbool in het vakje Zoeken naar.
druk op Ctrl + H om de vervangfunctie in te schakelen

4. Typ in het vakje Vervangen door het scheidingsteken waarmee u de gecombineerde teksten wilt scheiden en klik vervolgens op Alles vervangen. Sluit daarna het dialoogvenster Vervangen.
typ het scheidingsteken om de samengevoegde teksten te scheiden in het vervangvak

5. Selecteer nu de teksten in Kladblok en druk op Ctrl + C om ze te kopiëren. Ga vervolgens naar Excel, selecteer een cel en druk op Ctrl + V om de samengevoegde resultaten te plakken.
de kolommen zijn samengevoegd tot één celde kolommen zijn samengevoegd tot één cel

Uitbreiding: Kolommen samenvoegen/rijen combineren tot één cel met regeleinde als scheidingsteken

Als u Kolommen samenvoegen of rijen tot één cel wilt combineren met een regeleinde als scheidingsteken, zoals op de onderstaande afbeelding wordt weergegeven:
kolommen of rijen samenvoegen tot één cel met een regeleinde

Eerst moet u weten dat u in Excel de functie TEKEN() kunt gebruiken om tekens op te geven die moeilijk rechtstreeks in een formule kunnen worden ingevoerd, zoals TEKEN(10), wat een regeleinde retourneert.

Gebruik vervolgens TEKEN(10) in de hierboven genoemde formules om Kolommen samenvoegen of rijen te combineren met een regeleinde als scheidingsteken:

Ampersand-symbool:

=A49&CHAR(10)&B49

Functie CONCATENATE:

=CONCATENATE(A49,CHAR(10),B49)

Functie CONCAT

=CONCAT(A49,CHAR(10),B49)

Functie TEXTJOIN

=TEXTJOIN(CHAR(10),TRUE,A49:B49)

Nadat u een van bovenstaande formules hebt ingevoerd, selecteert u de resultaten en klikt u op Start > Automatisch teruglopen.
klik op Start > Tekstterugloop

Nu zijn de kolommen samengevoegd tot één cel, gescheiden door een regeleinde.
de kolommen zijn samengevoegd tot één cel en gescheiden door een regeleinde

tip-icoonAls u tekst uit één kolom naar één enkele cel wilt samenvoegen, helpt de functie Uitvullen in Excel u daarbij. Selecteer de kolom met meerdere rijen en klik op Start > Vullen > UitvullenDe rijen worden dan samengevoegd in de cel boven het geselecteerde bereik, gescheiden door spaties.

klik op Start > Vullen > Uitvullende rijen zijn samengevoegd tot de bovenste cel met spaties

1,2 Kolommen samenvoegen/rijen in één cel zonder lege cellen

In dit gedeelte introduceert de handleiding methoden om Kolommen samenvoegen of rijen in één cel samen te voegen en Lege cellen negeren, zoals op onderstaande schermafbeelding wordt weergegeven:
kolommen of rijen samenvoegen en lege cellen overslaan

1,21 De functie TEKST.SAMENVOEGEN gebruiken (Excel 2019 of Excel 365)

Als u Excel 2019 of Excel 365 gebruikt, kunt u gelukkig eenvoudig gebruikmaken van de nieuwe functie TEKST.SAMENVOEGEN om deze taak uit te voeren.

Syntaxis van AANSLUITEN
TEXTJOIN (delimiter, ignore_empty, text1, [text2], ...)

Voor meer informatie over de TEKST.SAMENV-functie verwijzen we u naar: TEKST.SAMENV.

Voorbeeld: Combineer naam (kolom A), nummer (kolom B) en domein (kolom C) in één cel om een e-mailadres te genereren; sommige nummers kunnen leeg zijn.

Selecteer een cel waarin het samengevoegde resultaat moet worden geplaatst en typ de volgende formule:

=TEXTJOIN(„",TRUE,A2:C2)

info-icoonIn de formule is A2:C2 het bereik met de teksten die u wilt samenvoegen. „" geeft het scheidingsteken aan (in dit geval geen), dat de afzonderlijke teksten in de resultaatcel van elkaar scheidt. Wilt u een ander scheidingsteken gebruiken, typ het dan tussen dubbele aanhalingstekens, bijvoorbeeld ",". De logische waarde „WAAR” zorgt ervoor dat lege cellen worden overgeslagen tijdens het samenvoegen. Als u lege cellen juist wél mee wilt nemen, vervangt u WAAR door ONWAAR.

Druk op Enter om het eerste resultaat te verkrijgen en sleep de automatische invulgreep naar beneden of naar rechts, afhankelijk van uw behoeften, om alle resultaten te genereren.
FUNCTIE TEKST.SAMENV om kolommen samen te voegen en lege cellen over te slaan

1,22 Het ampersand-symbool (&) gebruiken

Als u Excel 2016 of een oudere versie van Excel gebruikt, kunt u het ampersand-symbool & gebruiken om de teksten één voor één te verbinden en handmatig lege cellen overslaan.

Selecteer een cel waar u het gecombineerde resultaat wilt plaatsen en typ een formule zoals deze:

=A10&C10

info-icoonIn de formule wordt & gebruikt om de teksten te verbinden. A10 en C10 zijn de twee teksten die moeten worden samengevoegd. Als u een komma als scheidingsteken wilt gebruiken, typt u een komma tussen dubbele aanhalingstekens, zoals ",", en gebruikt u & om de twee teksten met elkaar te verbinden.

Druk op Enter om het samengevoegde resultaat te verkrijgen. Pas daarna de verwijzingen in de formule aan om het volgende samengevoegde resultaat te krijgen.
ampersand-teken om kolommen samen te voegen en lege cellen over te slaan

1,23 Een gedefinieerde functie gebruiken

Voor gebruikers van Excel 2016 en eerdere versies van Excel: als meerdere kolommen of rijen moeten worden samengevoegd terwijl lege cellen worden overgeslagen, kunt u een VBA-macro gebruiken om een gedefinieerde functie te maken die deze taak snel oplost.

1. Druk op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module om een nieuwe module in te voegen.
Klik op Invoegen > Module om een nieuwe module in te voegen

3. Kopieer de onderstaande code, plak deze in de nieuwe module en sla op.

VBA: Cellen samenvoegen Lege cellen negeren

Function Concatenatecells(ConcatArea As Range) As String
'updateby Extendoffice
  For Each n In ConcatArea: nn = IIf(n = "", nn & "", nn & n & "_"): Next
  Concatenatecells = Left(nn, Len(nn) - 1)
End Function

kopieer en plak de code in de module

4. Ga terug naar het werkblad, selecteer een cel waarin het samengevoegde resultaat moet worden geplaatst en typ de formule

=Concatenatecells(A15:C15)

info-icoonIn de formule is A15:C15 het bereik met de teksten die moeten worden samengevoegd. In de VBA-code geeft „_" het scheidingsteken aan dat wordt gebruikt om de teksten in het samengevoegde resultaat te scheiden. U kunt dit scheidingsteken naar wens wijzigen.
voer een formule in om het resultaat te verkrijgen


1,3 Kolommen samenvoegen/rijen/cellen in één cel zonder gegevensverlies

Als u Kutools voor Excel in Excel hebt geïnstalleerd, is de functie Rijen/kolommen/cellen samenvoegen en waarden behouden uiterst handig bij allerlei soorten samenvoegtaken.

Kutools voor Excelbiedt meer dan 300 geavanceerde functies om complexe taken te stroomlijnen, waardoor creativiteit en efficiëntie worden verhoogd.Geïntegreerd met AI-mogelijkheden, automatiseert Kutools taken met precisie, zodat databeheer moeiteloos verloopt.Gedetailleerde informatie over Kutools voor Excel...         Gratis proefversie...

1. Selecteer de cellen die u wilt samenvoegen en de cellen waarin u het Samengevoegde resultaten wilt plaatsen.
Selecteer de cellen die u wilt samenvoegen en de cellen waarin u de samengevoegde resultaten wilt plaatsen

2. Klik op Kutools > Samenvoegen en splitsen > Rijen/kolommen/cellen samenvoegen en waarden behouden.
klik op de functie Rijen, kolommen of cellen samenvoegen zonder gegevensverlies

3. Geef in het verschijnende dialoogvenster de volgende opties op:
stel opties in in het dialoogvenster

1) Geef aan of u de cellen per kolom wilt samenvoegen, per rij wilt samenvoegen of alle cellen in één enkele cel wilt samenvoegen.

Kolommen samenvoegen, bijvoorbeeld.Rijen samenvoegen, bijvoorbeeld.Samenvoegen tot één cel Bijv.
Kolommen samenvoegen Rijen samenvoegenSamenvoegen tot één cel

2) Geef het scheidingsteken op dat u wilt gebruiken tussen de teksten in het samengevoegde resultaat.

3) Geef de locatie op van het samengevoegde resultaat (uitgeschakeld bij de optie Samenvoegen tot één cel)

Bij de keuze voor de optie Kolommen samenvoegen kunt u aangeven of het resultaat in de De cel aan de linkerkant van de Bereik selecteren of in de De cel aan de rechterkant van de Bereik selecteren moet worden geplaatst.

De cel aan de linkerkant Bijv.De cel aan de rechterkant, bijvoorbeeld.
plaats het samengevoegde resultaat in de linker celplaats het samengevoegde resultaat in de rechter cel

Bij de keuze voor de optie Rijen samenvoegen kunt u aangeven of het resultaat in de cel erboven of in de cel eronder van het geselecteerde bereik moet worden geplaatst.

De cel erboven Bijv.De cel eronder Bijv.
plaats het samengevoegde resultaat in de bovenste celplaats het samengevoegde resultaat in de onderste cel

4) Geef de bewerking op met betrekking tot Samengevoegde resultaten.

4. Klik op OK of op Toepassen om de samenvoeging te voltooien.

De inhoud van deze cellen behouden
Behoud inhoud van samengevoegde cellen
De inhoud van deze cellen verwijderen
Verwijder inhoud van samengevoegde cellen
Deze cellen samenvoegen
Voeg de samengevoegde cellen samen

Voor meer informatie over deze functie, bezoekt u Kolommen samenvoegen, rijen en cellen zonder gegevensverlies.

Voor meer informatie over Kutools voor Excel, bezoekt u Kutools voor Excel.

Download nu een gratis proefversie van 30 dagen van Kutools voor Excel door het programma direct te downloaden.


1,4 Twee kolommen samenvoegen indien leeg

Soms wilt u twee kolommen samenvoegen als één van de kolommen lege cellen bevat. Stel dat er twee kolommen zijn: kolom A bevat Gebruikersnaam en enkele lege cellen, en kolom B bevat namen. Vul nu bij het samenvoegen van de twee kolommen de lege cellen in kolom A op met de overeenkomstige inhoud uit kolom B, zoals op de onderstaande schermafbeelding wordt weergegeven:
Twee kolommen samenvoegen indien leeg

1,41 De ALS-functie gebruiken

De ALS-functie wordt gebruikt om een specifieke voorwaarde te testen. U kunt deze functie inzetten om te controleren of een cel leeg is, en zo ja, de lege cel automatisch te vullen met inhoud uit een andere kolom.

Syntaxis van de ALS-functie
IF (logical_test, [value_if_true], [value_if_false])

Voor meer informatie over de ALS-functie, bezoekt u:ALS

Selecteer de De cel erboven van de kolom waarin u het Samengevoegde resultaten wilt plaatsen en kopieer of typ de volgende formule:

=IF(A2=„",B2,A2)

Druk vervolgens op Enter om het eerste resultaat te krijgen en sleep de automatische invulgreep naar beneden om alle resultaten te verkrijgen.
gebruik de ALS-functie om twee kolommen samen te voegen indien leeg

Nu zijn alleen de lege cellen in kolom A opgevuld met de inhoud uit kolom B.

1,42 VBA gebruiken

Hieronder vindt u ook een VBA-code die deze taak kan uitvoeren.

1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen en klik vervolgens op Invoegen > Module om een nieuwe lege module te maken.

2. Kopieer en plak de onderstaande code in de nieuwe module.

VBA: Twee kolommen samenvoegen indien leeg

Sub MergebyBlank()
'UpdatebyExtendoffice20220506
Dim xRg1, xRg2, xRgUser As Range
Dim xRg As Range
Dim xWsh As Worksheet
Dim xCount, xFNum  As Integer
Set xRg1 = Range("A:A")
Set xRg2 = Range("B:B")
Set xWsh = xRg1.Worksheet
Set xRgUser = xWsh.UsedRange
Set xRg1 = Intersect(xRgUser, xRg1)
Set xWsh = xRg2.Worksheet
Set xRgUser = xWsh.UsedRange
Set xRg2 = Intersect(xRgUser, xRg2)
xCount = xRg1.Count
If (xCount > xRg2.Count) Then
    xCount = xRg2.Count
End If
For xFNum = 1 To xCount
    If (xRg1.Item(xFNum).Value = "") Then
        If (xRg2.Item(xFNum).Value <> "") Then
            xRg1.Item(xFNum).Value = xRg2.Item(xFNum).Value
        End If
    ElseIf (xRg2.Item(xFNum).Value = "") Then
            If (xRg1.Item(xFNum).Value <> "") Then
            xRg2.Item(xFNum).Value = xRg1.Item(xFNum).Value
        End If
    End If
Next
End Sub

kopieer en plak de code in de module

info-icoonIn de code zijn A:A en B:B de twee kolommen die worden samengevoegd; pas deze naar wens aan.

3. Druk vervolgens op F5 of klik op de knop Uitvoerenuitvoerknop, waarna kolom A wordt gevuld met waarden uit kolom B als de waarde in kolom A leeg is.


2 Rijen samenvoegen met hetzelfde ID

Stel je hebt een tabel met meerdere kolommen, waarvan één kolom ID-waarden bevat die duplicaten bevatten. In deze handleiding worden methoden uitgelegd om rijen met hetzelfde ID samen te voegen en daarbij berekeningen uit te voeren.
voorbeeldgegevens

2,1 Rijen samenvoegen met dezelfde ID en gescheiden door komma of andere scheidingstekens

In dit gedeelte worden methoden beschreven om rijen met hetzelfde ID samen te voegen, gescheiden door komma’s, zoals op de onderstaande schermafbeelding wordt weergegeven:
Rijen samenvoegen met dezelfde ID en gescheiden door komma's

2,11 VBA gebruiken

Hieronder vindt u een VBA-code die deze taak naadloos uitvoert.

1. Druk op Alt+F11om het venster Microsoft Visual Basic for Applicationste openen en klik vervolgens op Invoegen>Moduleom een nieuwe lege module te maken.

2. Kopieer en plak de onderstaande code in de nieuwe module.

VBA: Rijen samenvoegen met hetzelfde ID

Sub Combine_Rows()
'UpdatebyExtendoffice20220506
Dim xRg As Range
Dim xRows As Long
Dim I As Long, J As Long, K As Long
On Error Resume Next
Set xRg = Application.InputBox("Select Range:", "Kutools For Excel", Selection.Address, , , , , 8)
Set xRg = Range(Intersect(xRg, ActiveSheet.UsedRange).Address)
If xRg Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
For I = xRows To 2 Step -1
For J = 1 To I - 1
If xRg(I, 1).Value = xRg(J, 1).Value And J <> I Then
For K = 2 To xRg.Columns.Count
If xRg(J, K).Value <> "" Then
If xRg(I, K).Value = "" Then
xRg(I, K) = xRg(J, K).Text
Else
xRg(I, K) = xRg(I, K).Text & "," & xRg(J, K).Text 'here uses comma as separator, you can change it to others as you need
End If
End If
Next
xRg(J, 1).EntireRow.Delete
I = I - 1
J = J - 1
End If
Next
Next
ActiveSheet.UsedRange.Columns.AutoFit
End Sub

kopieer en plak de code in de module

3. Druk vervolgens op F5 of klik op de knop Uitvoerenselecteer een tabel waarvan rijen met dezelfde ID moeten worden samengevoegd. Daarna verschijnt er een Kutools voor Excel-dialoogvenster waarin u een tabel kunt selecteren waarvan de rijen met hetzelfde ID moeten worden samengevoegd.
selecteer een tabel waarvan rijen met dezelfde ID moeten worden samengevoegd

4. Klik op OK. De rijen van de geselecteerde tabel zijn nu samengevoegd op basis van hetzelfde ID.

2,12 Gebruik de ALS-functie om hulpkolommen toe te voegen

Als er slechts twee kolommen zijn en u de rijen met hetzelfde ID wilt combineren, waarbij de waarden uit een andere kolom door komma's gescheiden worden zoals in onderstaande afbeelding wordt weergegeven, kan de ALS-functie u daarbij helpen.
voeg de rijen met dezelfde ID samen, en scheid de waarden uit een andere kolom met een komma

1. Sorteer de ID van A naar Z. Selecteer de ID-kolom en klik op Gegevens > Oplopend.
Gegevens > Sorteren van A naar Z

2. Selecteer vervolgens in het dialoogvenster Sorteerwaarschuwing de optie Selectie uitbreiden en klik op Sorteren.
vink de optie Selectie uitbreiden aan en klik op Sorteren

Nu zijn dezelfde ID's bij elkaar gesorteerd.
dezelfde ID's zijn bij elkaar gesorteerd

3. Gebruik in de aangrenzende kolom de ALS-functie als volgt:

=IF(A17=A18,C17&", "&B18,B18)

info-icoonIn de formule zijn A17 en A18 de twee aangrenzende cellen in de ID-kolom (waarbij A17 de kop van de kolom is) en B18 de bijbehorende cel van A18. Het teken „,“ geeft aan dat de waarden door een komma moeten worden gescheiden – u kunt zowel de celverwijzingen als het scheidingsteken naar wens aanpassen.

4. Druk op de Enter-toets om het eerste resultaat te krijgen en sleep daarna de automatische vulgreep omlaag om alle resultaten te verkrijgen.
voer een formule in om het resultaat te verkrijgen

5. Ga naar de aangrenzende kolom en typ de volgende formule:

=IF(A18<>A19,"Merged",„")

info-icoonIn de formule zijn A18 en A19 de twee aangrenzende cellen in de ID-kolom. Als de aangrenzende cellen niet gelijk zijn, wordt „Merged” geretourneerd; anders wordt een lege waarde geretourneerd.

6. Druk op de Enter-toets om het eerste resultaat te krijgen en sleep daarna de automatische vulgreep omlaag om alle resultaten te verkrijgen.
voer een formule in om de samengevoegde cellen te controleren

7. Selecteer de laatste formulekolom, inclusief de koptekst, en klik op Gegevens > Filter.
 klik op Gegevens > Filter

8. Klik op de Filter-knop, schakel het selectievakje Merged in het vervolgmenu in en klik op OK.
vink het selectievakje Samengevoegd aan in de filterlijst

Nu zijn alleen de samengevoegde rijen gefilterd. Kopieer deze gefilterde gegevens en plak ze op een andere locatie.
kopieer de gefilterde gegevens en plak ze elders

Meer informatie over de ALS-functie vindt u op:

2,13 Een handige tool gebruiken – Geavanceerd samenvoegen van rijen

Als u Kutools voor Excel in Excel hebt geïnstalleerd, voert de functie Geavanceerd samenvoegen van rijen deze taak eenvoudig uit.

Kutools voor Excelbiedt meer dan 300 geavanceerde functies om complexe taken te stroomlijnen, waardoor creativiteit en efficiëntie worden verhoogd.Geïntegreerd met AI-mogelijkheden, automatiseert Kutools taken met precisie, zodat databeheer moeiteloos verloopt.Gedetailleerde informatie over Kutools voor Excel...         Gratis proefversie...

1. Selecteer de tabel en klik op Kutools > Samenvoegen en splitsen > Geavanceerd samenvoegen van rijen.
klik op de functie Geavanceerd rijen samenvoegen van Kutools

2. Voer in het dialoogvenster Geavanceerd samenvoegen van rijen de volgende stappen uit:

1) Kies de ID-kolom en stel deze in als Primaire sleutel;

2) Selecteer de kolom met de waarden die u wilt combineren, klik op Combineren en kies een scheidingsteken.

3)Klik op Ok.

Nu zijn de rijen samengevoegd op basis van hetzelfde ID.
de rijen zijn samengevoegd op basis van dezelfde ID

De functie Geavanceerd samenvoegen van rijen wijzigt de oorspronkelijke gegevens. Sla de gegevens daarom eerst als een kopie op voordat u deze gebruikt.

Voor meer informatie over deze functie verwijzen we u naar Geavanceerd samenvoegen van rijen.

Voor meer informatie over Kutools voor Excel verwijzen we u naar Kutools voor Excel.

Download nu een gratis proefversie van 30 dagen van Kutools voor Excel door het programma te downloaden.

2,2 Rijen samenvoegen met dezelfde ID en enkele berekeningen uitvoeren

Als u rijen met hetzelfde ID wilt Rijen samenvoegen en vervolgens de waarden wilt optellen of andere berekeningen wilt uitvoeren zoals in onderstaande afbeelding wordt weergegeven, kunnen de onderstaande methoden u daarbij helpen.
Rijen samenvoegen met dezelfde ID en berekeningen uitvoeren

2,21 De functie Consolideren gebruiken

Als er slechts twee kolommen zijn — één met tekst (bijvoorbeeld ID) en één met waarden die u wilt berekenen, zoals optellen — dan helpt de ingebouwde Excel-functie Consolideren u daarbij.

1. Selecteer een cel waar u het samengevoegde resultaat wilt plaatsen en klik op Gegevens > Consolideren.
klik op Gegevens > Consolideren

2. Voer in het dialoogvenster Consolideren de volgende stappen uit:

1) Kies de gewenste Functie;

2) Klik op de pijl om de tabel te selecteren;

3) Klik op Toevoegenom de Bereik selecteren toe te voegen aan de lijst Alle verwijzingen;

4) Schakel de selectievakjes voor Bovenste rijen Meest linkse kolomin;

5) Klik op OK.

Nu is de tabel opgeteld op basis van hetzelfde ID.
de tabel is opgeteld op basis van dezelfde ID

2,22 Gebruik VBA

Hieronder vindt u een VBA-script dat ook Rijen samenvoegen met hetzelfde ID kan combineren en vervolgens de waarden optelt.

1. Druk op de toetsencombinatie Alt+F11 om het venster Microsoft Visual Basic for Applications te openen. Klik vervolgens op Invoegen > Module om een nieuwe lege module te maken.
klik op Invoegen > Module om een nieuwe lege module te maken

2. Kopieer en plak in de nieuwe module de onderstaande VBA-code.

VBA: Combineer Dubbele rij en tel op

Sub CombineRows()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
    Dic(arr(i, 1)) = Dic(arr(i, 1)) + arr(i, 2)
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub

3. Druk vervolgens op de F5-toets of klik op de knop Uitvoerenuitvoerknop. Er verschijnt dan een dialoogvenster waarin u de te gebruiken tabel kunt selecteren. Klik daarna op OK.

Nu zijn de Bereik selecteren gecombineerd met dezelfde waarden en opgeteld.

notitieknopHet VBA-script wijzigt de oorspronkelijke gegevens. Sla de gegevens daarom eerst als een kopie op voordat u het script gebruikt.

2,23 Gebruik een handige tool – Geavanceerd samenvoegen van rijen

Als u meer dan twee kolommen in de tabel wilt combineren en berekeningen wilt uitvoeren, bijvoorbeeld drie kolommen waarbij de eerste kolom dubbele productnamen bevat die samengevoegd moeten worden, de tweede kolom winkelnamen bevat die gecombineerd en gescheiden door een komma moeten worden, en de Laatste kolom getallen bevat die opgeteld moeten worden op basis van de Dubbele rij in de eerste kolom, zoals in onderstaande afbeelding wordt weergegeven, dan kan de functie Kutools voor Excel’s Geavanceerd samenvoegen van rijen u daarbij helpen.
samenvoegen en berekeningen uitvoeren

1. Selecteer de tabel en klik op Kutools > Samenvoegen en splitsen > Geavanceerd samenvoegen van rijen.
klik op de functie Geavanceerd rijen samenvoegen van Kutools

2. Voer in het dialoogvenster Geavanceerd samenvoegen van rijende volgende stappen uit:

1) Kies de ID-kolom en stel deze in als Primaire sleutel;

2) Kies de kolom waarvan u de waarden met een scheidingsteken wilt combineren, klik op Combinerenen kies een scheidingsteken.

3) Kies de kolom waarop u een berekening wilt uitvoeren, klik op Berekenen en kies een berekening.

4)Klik op Ok.

Nu zijn de rijen samengevoegd met dezelfde rijen en berekend.

notitieknopDe functie Geavanceerd samenvoegen van rijen wijzigt de oorspronkelijke gegevens. Sla uw gegevens daarom eerst op als een kopie voordat u deze functie gebruikt.

Voor meer informatie over deze functie bezoekt u Geavanceerd samenvoegen van rijen.

Voor meer informatie Over Kutools voor Excel, bezoekt u Kutools voor Excel.

Probeer Kutools voor Excel gratis gedurende 30 dagen—download het nu!

2,3 Aangrenzende rijen met dezelfde waarde samenvoegen

Als een tabel meerdere kolommen bevat en één kolom enkele dubbele waarden heeft, bestaat de taak er dan in om de aangrenzende rijen met dezelfde waarden in die kolom samen te voegen, zoals op de onderstaande schermafbeelding wordt weergegeven. Hoe lost u dit op?
Aangrenzende rijen samenvoegen met dezelfde waarde

2,31 Met behulp van VBA

In Excel is er geen ingebouwde functie die deze taak direct aanpakt, maar hieronder vindt u een VBA-script dat dit wél voor u kan doen.

1. Druk op Alt+F11om het venster Microsoft Visual Basic for Applicationste openen en klik vervolgens op Invoegen>Moduleom een nieuwe lege module te maken.

2. Kopieer en plak de onderstaande VBA-code in de nieuwe module.

VBA: Aangrenzende rijen met dezelfde waarde samenvoegen

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

kopieer en plak de code in de module

3. Druk vervolgens op F5 of klik op de knop Uitvoerenselecteer het gegevensbereik om deze VBA-code uit te voeren. Er verschijnt dan een dialoogvenster waarin u de tabel kunt selecteren die u wilt gebruiken. Klik daarna op OK.
selecteer het gegevensbereik

Nu zijn de aangrenzende rijen met dezelfde waarden in de eerste kolom samengevoegd in de Bereik selecteren.

notitieknopDe VBA-code zal de oorspronkelijke gegevens wijzigen. Sla de gegevens daarom eerst op als een kopie voordat u de VBA-code gebruikt. Deze VBA-code voegt ook dezelfde waarden in de eerste kolom van de Geselecteerde tabel samen.

2,32 Met behulp van een handige tool – Voeg dezelfde cellen samen

Als u Kutools voor Excel hebt geïnstalleerd in Excel, lost de functie Voeg dezelfde cellen samen van Kutools voor Excel deze taak in één stap op.

Kutools voor Excelbiedt meer dan 300 geavanceerde functies om complexe taken te stroomlijnen, waardoor creativiteit en efficiëntie worden verhoogd.Geïntegreerd met AI-mogelijkheden, automatiseert Kutools taken met precisie, zodat databeheer moeiteloos verloopt.Gedetailleerde informatie over Kutools voor Excel...         Gratis proefversie...

Selecteer de kolom met de waarden die u wilt samenvoegen en klik vervolgens op Kutools > Samenvoegen en splitsen > Voeg dezelfde cellen samen.
klik op de functie Gelijksoortige cellen samenvoegen van Kutools

Nu zijn de aangrenzende cellen met dezelfde waarden samengevoegd.

hef de samenvoeging van de samengevoegde cellen op en vul de waarden terugAls u de samengevoegde cellen Samengevoegd weer wilt splitsen en de waarden automatisch wilt invullen, gebruikt u de functie Cellen splitsen en waarden invullen.
pas de functie Cellen ontmengen en waarden invullen toe

Voor meer informatie over deze functie, bezoekt u Voeg dezelfde cellen samen.

Voor meer informatie over deze functie bezoekt u Cellen splitsen.

Voor meer informatie Over Kutools voor Excel, bezoekt u Kutools voor Excel.

Voor een gratis proefversie van 30 dagen van Kutools voor Excel, download nu.


3 Cellen samenvoegen

3,1. Meerdere rijen en kolommen samenvoegen tot één cel

Vier methoden om een bereik met meerdere rijen en kolommen samen te voegen tot één enkele cel.

Voorbeeld: Samenvoegen bereik A1:C3
Meerdere rijen en kolommen samenvoegen tot één cel

3,11 Met behulp van het ampersand-symbool (&)

In Excel wordt het ampersand-symbool & doorgaans gebruikt om teksten samen te voegen.

Selecteer een cel waar u het samengevoegde resultaat wilt plaatsen en typ vervolgens een formule zoals deze:

=A1&", "&B1&", "&C1&", "&A2&", " &B2&", "&C2&", "&A3&", "&B3&", "&C3

info-icoonIn de formule wordt het &-teken gebruikt om tekst samen te voegen. ", " (een komma gevolgd door een spatie) is het standaardscheidingsteken dat de twee tekstdelen in de resultaatcel van elkaar scheidt. Wilt u een ander scheidingsteken gebruiken? Typ het dan gewoon tussen dubbele aanhalingstekens.

Druk op Enter om het samengevoegde resultaat te verkrijgen.

3,12 Met behulp van de functie SAMENVOEGEN (Excel 2016 of eerdere versies)

Als u Excel 2016 of een eerdere versie gebruikt, helpt de functie CONCATENATE u hierbij.

Syntaxis van AANSLUITEN
CONCATENATE (text1,[text2],…)

Voor meer informatie over de functie SAMENVOEGEN, bezoekt u:SAMENVOEGEN

Selecteer een cel waar u het samengevoegde resultaat wilt plaatsen en typ vervolgens een formule zoals deze:

=CONCATENATE(A1,", ",B1,", ",C1,", ",A2,", ",B2,", ",C2,", ",A3,", ",B3,", ",C3)

info-icoonIn de formule zijn A1, B1…, C3 de teksten die u wilt samenvoegen. ", " is het scheidingsteken (een komma gevolgd door een spatie) dat de afzonderlijke teksten in de resultaatcel van elkaar scheidt. Wilt u een ander scheidingsteken gebruiken? Typ dit dan eenvoudig tussen dubbele aanhalingstekens.

Druk vervolgens op Enter om het samengevoegde resultaat te verkrijgen.

3. 13 Met behulp van de functie SAMENV (CONCAT) of TEKST.SAMENV (TEXTJOIN) in Excel 2019 of Excel 365

Als u Excel 2019 of Excel 365 gebruikt, zijn de functies FUNCTIE.SAMENVOEGEN en TEKST.SAMENV waarschijnlijk de beste keuze.

Syntaxis van SAMENVOEGEN
CONCAT (text1,[text2],…)

Voor meer informatie over de functie SAMENV, bezoekt u deze pagina.

De werking van de functie SAMENV is identiek aan die van de functie SAMENVOEGEN. Gebruik de volgende formule om Voornaam en Achternaam uit twee afzonderlijke kolommen samen te voegen tot één kolom:

=CONCAT(A1,", ",B1,", ",C1,", ",A2,", ",B2,", ",C2,", ",A3,", ",B3,", ",C3)

info-icoonIn de formule zijn A1, B1…, C3 de teksten die u wilt samenvoegen. ", " is het scheidingsteken (komma + spatie) dat de twee teksten in de resultaatcel van elkaar scheidt. Als u een ander scheidingsteken wilt gebruiken, typt u gewoon een scheidingsteken tussen dubbele aanhalingstekens.

Druk vervolgens op Enter om het gecombineerde resultaat te krijgen.

Syntaxis van TEKST.SAMENVOEGEN
TEXTJOIN (delimiter, ignore_empty, text1, [text2], ...)

Voor meer informatie over de TEKST.SAMENV-functie verwijzen we u naar:TEKST.SAMENV.

Om Kolommen samenvoegen of rijen samen te voegen met behulp van TEKST.SAMENV:

=TEXTJOIN(", ",TRUE,A1:C3)

info-icoonIn de formule is A1:C3 een aaneengesloten bereik dat moet worden samengevoegd. ", " is het scheidingsteken (komma + spatie) dat de twee teksten in de resultaatcel van elkaar scheidt. Als u een ander scheidingsteken wilt gebruiken, typt u het scheidingsteken tussen dubbele aanhalingstekens „". De logische waarde „WAAR” geeft aan dat Lege cellen moet worden genegeerd bij het samenvoegen. Als u lege cellen wel wilt meenemen, vervangt u WAAR door ONWAAR.

Druk vervolgens op Enterom het gecombineerde resultaat te verkrijgen.

tipknopAls u een regeleinde als scheidingsteken wilt gebruiken, gebruikt u TEKEN(10) in de formule, zoals =TEKST.SAMENV(TOKEN(10);WAAR;A1:C3). Formatteer de resultaatcel vervolgens als Tekstterugloop.
formatteer de resultaatcel met Tekstterugloop

3,14 Met behulp van Kolommen samenvoegen/rijen/cellen samenvoegen tot één cel zonder gegevensverlies

Als u Kutools voor Excel hebt geïnstalleerd in Excel, voert de functie Rijen/kolommen/cellen samenvoegen en waarden behouden deze taak razendsnel uit.

1. Selecteer het celbereik dat u tot één cel wilt samenvoegen en klik vervolgens op Kutools > Samenvoegen en splitsen > Rijen/kolommen/cellen samenvoegen en waarden behouden.
klik op de functie Rijen, kolommen of cellen samenvoegen zonder gegevensverlies van Kutools

2. Schakel in het verschijnende dialoogvenster Samenvoegen tot één cel in, stel het scheidingsteken naar wens in en klik op OK.
geef de opties op in het dialoogvenster

De cellen zijn nu samengevoegd tot één cel met een specifiek scheidingsteken. Als de celinhoud te lang is om in de samengevoegde cel te worden weergegeven, klikt u op Tekstterugloop onder het tabblad Start om alles te tonen.
de cellen zijn samengevoegd tot één cel met een specifiek scheidingsteken

Voor meer informatie over deze functie, bezoekt u Kolommen samenvoegen, rijen, cellen zonder gegevensverlies.

Voor meer informatie Over Kutools voor Excel, bezoekt u Kutools voor Excel.

Voor een gratis proefversie van 30 dagen van Kutools voor Excel,downloadhet nu.

3,2 Meerdere rijen en kolommen samenvoegen in één enkele kolom/rij

Cellen transponeren naar één enkele kolom
  Cellen transponeren naar één enkele kolom
Cellen transponeren naar één enkele rij
 Cellen transponeren naar één enkele rij
 

3,21 Geef het bereik een naam en gebruik de INDEX-functie (alleen voor één enkele kolom)

Als u het celbereik naar één enkele kolom wilt transponeren, kunt u het bereik een naam geven en vervolgens de INDEX-functie gebruiken.

1. Selecteer het celbereik, klik met de rechtermuisknop om het contextmenu te openen en kies Naam definiëren.
 klik met de rechtermuisknop op het gegevensbereik en klik op Naam definiëren

2. Typ in het verschijnende dialoogvenster Nieuwe Naam een naam in het tekstvak Naam en klik op OK.
typ een naam in het Naam-vak

3. Nadat u het bereik een naam hebt gegeven, selecteert u een cel waar u de getransponeerde gegevens wilt plaatsen en gebruikt u de INDEX-functie als volgt:

=INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1)

Voor meer informatie over de INDEX-functie, bezoekt u hier.

4. Druk op Enter en sleep vervolgens de automatische vulgreep omlaag om deze formule te kopiëren totdat de foutwaarde #VERW! verschijnt.
voer een formule in en sleep de formule omlaag

5. Verwijder de foutwaarde en het celbereik wordt samengevoegd tot één kolom.

3,22 VBA (alleen voor één enkele kolom)

Voor het samenvoegen van cellen tot één enkele kolom is hier een VBA-script dat u daarbij ondersteunt.

1. Druk op Alt+F11om het venster Microsoft Visual Basic for Applicationste openen en klik vervolgens op Invoegen>Moduleom een nieuwe lege module te maken.

2. Kopieer en plak de onderstaande VBA-code in de lege module.

VBA: Converteer bereik naar een kolom

Sub ConvertRangeToColumn()
'UpdatebyExtendoffice
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
    Rng.Copy
    Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

kopieer en plak de VBA-code in de module

3. Druk vervolgens op F5 of klik op de knop Uitvoerenselecteer een celbereik. Er verschijnt een dialoogvenster waarin u een celbereik kunt selecteren; klik op OK.
selecteer een celbereik

4. Er verschijnt nog een dialoogvenster om een cel te selecteren waarin het resultaat geplaatst moet worden; klik op OK.
selecteer een cel om het resultaat te plaatsen

3,23 Met behulp van een handige tool – Bereik transformeren

Als u cellen wilt samenvoegen tot één rij, biedt Excel helaas geen ingebouwde functie hiervoor. Hebt u echter Kutools voor Excel geïnstalleerd, dan ondersteunt de functie Bereik transformeren het converteren van een bereik naar één kolom of één rij – en ook het omzetten van een rij of kolom terug naar een bereik.

Kutools voor Excelbiedt meer dan 300 geavanceerde functies om complexe taken te stroomlijnen, waardoor creativiteit en efficiëntie worden verhoogd.Geïntegreerd met AI-mogelijkheden, automatiseert Kutools taken met precisie, zodat databeheer moeiteloos verloopt.Gedetailleerde informatie over Kutools voor Excel...         Gratis proefversie...

1. Selecteer het celbereik en klik op Kutools > Bereik > Bereik transformeren.
klik op de functie Bereik transformeren van Kutools

2. In het dialoogvenster Bereik transformeren vinkt u de optie Bereik naar enkele kolom of Bereik naar enkele rij aan, afhankelijk van uw behoefte. Klik op OK.
selecteer de gewenste optie

3. Er verschijnt een dialoogvenster waarin u de cel selecteert waar het resultaat geplaatst moet worden; klik op OK.
selecteer een cel om het resultaat te plaatsen

Het bereik van cel is succesvol geconverteerd is nu omgezet naar een rij of een kolom.

Voor meer informatie over deze functie bezoekt u Bereik transformeren.

Voor meer informatie over Kutools voor Excel bezoekt u Kutools voor Excel.

Start vandaag nog uw gratis proefversie van 30 dagen van Kutools voor Excel—download het nu.

3,3 Kolommen stapelen in één kolom zonder duplicaten

Als er duplicaten voorkomen in een tabel met meerdere kolommen, hoe kunt u dan de kolommen stapelen tot één kolom zonder duplicaten, zoals in de onderstaande schermafbeelding wordt weergegeven?
Kolommen stapelen tot één kolom zonder duplicaten

In dit gedeelte worden drie verschillende methoden voor deze taak beschreven.

3,31 Kopiëren en plakken en Dubbele items verwijderen

In Excel lost u deze taak over het algemeen op door de kolommen één voor één te kopiëren en te plakken en vervolgens de Dubbele waarden te verwijderen.

1. Selecteer de eerste kolom en druk op Ctrl + C om deze te kopiëren. Selecteer vervolgens een doelcel en druk op Ctrl + V.
kopieer en plak de gegevens van de eerste kolom

2. Herhaal vervolgens stap 1 om de andere kolommen te kopiëren en onder de eerste kolom te plakken.
herhaal om de gegevens van andere kolommen onder de eerste kolom te kopiëren

3. Selecteer vervolgens de gestapelde kolom en klik op Gegevens > Dubbele items verwijderen. In het dialoogvenster Duplicaten verwijderen vinkt u de kolomnaam aan en klikt u op OK.
controleer de kolomnaam in het dialoogvenster
controleer de kolomnaam in het dialoogvenster

4. Er verschijnt nu een dialoogvenster met de melding dat de dubbele waarden zijn verwijderd. Klik op OK om het venster te sluiten; de gestapelde kolom bevat nu alleen unieke waarden.
alle duplicaten zijn verwijderd

tipknopAls u honderden kolommen hebt, is het één voor één kopiëren en plakken een tijdrovende klus. Maar als u Kutools voor Excelin Excel heeft geïnstalleerd, zet de functie Bereik transformerenhet bereik razendsnel om naar één kolom—waarna u direct de ingebouwde Excel-functie Dubbele items verwijderenkunt gebruiken.

Selecteer het bereik met kolommen en klik op Kutools > Bereik > Bereik transformeren.
klik op de functie Bereik transformeren van Kutools

Vink vervolgens de optie Bereik naar enkele kolom aan en klik op OK om een cel te selecteren waar de gestapelde kolom geplaatst moet worden.
vink de optie Bereik naar enkele kolom aan

Pas daarna **Dubbele items verwijderen** toe om dubbele waarden te verwijderen.

Voor meer informatie over deze functie bezoekt u Bereik transformeren.

Voor meer informatie over Over Kutools voor Excel bezoekt u Kutools voor Excel.

Voor een gratis proefversie van 30 dagen van Kutools voor Excel kunt u het nu downloaden.

3,32 Met behulp van VBA

Daarnaast is hier een VBA-code die deze taak voor u uitvoert.

1. Druk op Alt+F11om het venster Microsoft Visual Basic for Applicationste openen en klik vervolgens op Invoegen>Moduleom een nieuwe lege module te maken.

2. Kopieer en plak de onderstaande code in de nieuwe module.

VBA: Kolommen stapelen tot één zonder duplicaten

Sub FindUniques()
'UpdatebyExtendoffice
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set dic = CreateObject("Scripting.Dictionary")
For j = 1 To InputRng.Columns.Count
    For i = 1 To InputRng.Rows.Count
        xValue = InputRng.Cells(i, j).Value
        If xValue <> "" And Not dic.Exists(xValue) Then
            OutRng.Value = xValue
            dic(xValue) = ""
            Set OutRng = OutRng.Offset(1, 0)
        End If
    Next
Next
End Sub

kopieer en plak de code in de module

3. Druk vervolgens op F5 of klik op de knop Uitvoerenselecteer de kolommen die moeten worden gestapeld. Er verschijnt een dialoogvenster waarin u de kolommen kunt selecteren die gestapeld moeten worden; klik op OK.
selecteer de kolommen die moeten worden gestapeld

4. Selecteer in het tweede dialoogvenster een doelcel om de gestapelde kolom te plaatsen en klik op OK.
selecteer een doelcel om de gestapelde kolom te plaatsen

De kolommen zijn nu gestapeld tot één kolom met Unieke waarden.

3,4. Cellen samenvoegen en opmaak behouden

Als er twee kolommen zijn, waarvan één is opgemaakt met een speciale opmaak, zoals een aangepaste datum/tijdnotatie mm/dd/jjjj, dan wordt bij het combineren van deze twee kolommen met normale methoden de aangepaste opmaak verwijderd, zoals in de onderstaande schermafbeelding wordt weergegeven:
Cellen samenvoegen maar opmaak verliezen

In dit gedeelte worden enkele manieren beschreven om cellen te combineren zonder de opmaak te verliezen.
Cellen samenvoegen en opmaak behouden

3,41 De TEKST-functie in een formule opnemen

De TEKST-functie wordt gebruikt om een Getal naar tekst in een specifieke opmaak om te zetten. Hiermee kunnen we eerst de cel (met een getal) omzetten naar de gewenste opmaak en deze vervolgens combineren met andere cellen met behulp van „&”, de FUNCTIE.SAMENVOEGEN, SAMENVOEGEN of TEKST.SAMENVOEGEN.

Voor meer informatie over het algemene samenvoegen van cellen tot één cel gaat u terug naar 1,1.

Syntaxis van de TEKST-functie
TEXT (value, format_text)

Voor meer informatie over de TEKST-functie bezoekt u de pagina over deze functie.

Hier wordt als voorbeeld het gebruik van de TEKST-functie binnen de SAMENVOEGEN-functie getoond.

Kopieer en plak de volgende formule in een cel waar u het gecombineerde resultaat wilt plaatsen:

=CONCAT(TEXT(A2,"mm/dd/yyyy hh:mm"),„ ",B2)

info-icoonIn de formule is A2 de cel waarvan u de opmaak wilt behouden, „mm/dd/jjjj uu:mm” is de gebruikte opmaak, B2 is de andere cel die wordt gecombineerd en „ "" geeft aan dat de waarden gescheiden worden door een spatie. U kunt de verwijzingen, opmaak en scheidingsteken naar wens aanpassen.

Druk op Enter en sleep de automatische vulgreep omlaag om de formule naar andere cellen te kopiëren.

3,42 Met behulp van Microsoft Word

1. Selecteer de tabel waarvan u de cellen wilt combineren en druk op Ctrl+C om deze te kopiëren.
kopieer het gegevensbereik

2. Open een leeg Word-document, druk op Ctrl + V om de inhoud te plakken. Klik vervolgens op de tabel in het document; er verschijnt nu een kruisje rechtsboven de tabel.
plak het bereik in Word

3. Klik op het tabblad Indeling en vervolgens op Converteren naar tekst in de groep Gegevens. Geef in het dialoogvenster Tabel naar tekst converteren het scheidingsteken voor de kolommen op en klik op OK.
geef het scheidingsteken voor de kolommen op
geef het scheidingsteken voor de kolommen op

De inhoud van de tabel in Word is nu geconverteerd naar tekst.
de inhoud van de tabel in Word is omgezet naar tekst

4. Selecteer de geconverteerde teksten en druk op Ctrl + C om ze te kopiëren. Ga terug naar Excel, selecteer een lege cel en druk op Ctrl + V om het gecombineerde resultaat te plakken.
kopieer en plak terug naar het Excel-bestand

3,43 Met behulp van een handige tool – Samenvoegen zonder gegevensverlies

De meest efficiënte methode is het gebruik van de functie Kutools for ExcelRijen/kolommen/cellen samenvoegen en waarden behouden. Vink gewoon het selectievakje Opgemaakte waarden gebruiken aan bij het toepassen van de functie, en het gecombineerde resultaat behoudt automatisch de opmaak van de oorspronkelijke gegevens.

1. Selecteer de tabel met de cellen waarin het resultaat moet komen en klik op Kutools > Samenvoegen en splitsen > Rijen/kolommen/cellen samenvoegen en waarden behouden.
klik op de functie Rijen, kolommen of cellen samenvoegen zonder gegevensverlies van Kutools

2. Geef in het verschijnende dialoogvenster de gewenste samenvoegoperatie op en schakel het selectievakje Opgemaakte waarden gebruiken uit (standaard staat deze optie aangevinkt). Klik op OK.
geef de samenvoegbewerking op in het dialoogvenster

De gegevens zijn nu samengevoegd en de opmaak is behouden.
de gegevens zijn samengevoegd en de opmaak is behouden

Voor meer informatie over deze functie verwijzen we u naar Kolommen samenvoegen, rijen en cellen zonder gegevensverlies.

Voor meer informatie Over Kutools voor Excel verwijzen we u naar Kutools voor Excel.

Voor een gratis proefversie van {module745} dagen van Kutools voor Excel kunt u deze nu downloaden.

3,5 Cellen samenvoegen tot een datum

Stel dat er een tabel is met jaren, maanden en dagen in afzonderlijke kolommen; de taak bestaat erin deze kolommen te combineren en een datum te genereren zoals in onderstaande afbeelding wordt weergegeven:
Cellen samenvoegen om een datum te maken

3,51 Met behulp van de DATUM-functie

De DATUM-functie wordt gebruikt om een datum samen te stellen uit jaar, maand en dag.

Syntaxis van de DATUM-functie
DATE( year, month, day )

Voor meer informatie over de DATUM-functie verwijzen we u naar de pagina over de DATUM-functie.

Kopieer en plak de volgende formule in een cel waar de datum moet komen:

=DATE(A2,B2,C2)

info-icoonIn de formule zijn A2, B2 en C2 de cellen met respectievelijk de waarden voor jaar, maand en dag.

Druk op Enter om de eerste datum te verkrijgen en sleep vervolgens de automatische invulgreep omlaag om alle datums te genereren.
gebruik de DATUM-functie om het resultaat te verkrijgen


Meer Excel-tutorials:

Meerdere werkmappen en werkbladen samenvoegen tot één
Deze handleiding behandelt vrijwel alle combinatiescenario’s die u kunt tegenkomen en biedt professionele oplossingen.

Tekst-, getal- en datumcellen splitsen (scheiden in meerdere kolommen)
Deze handleiding is onderverdeeld in drie delen: het splitsen van tekstcellen, getalcellen en datumcellen. Elk deel bevat praktische voorbeelden die u helpen begrijpen hoe u de splitsing uitvoert wanneer u op dit soort problemen stuit.

Inhoud van meerdere cellen combineren zonder gegevensverlies in Excel
Deze handleiding richt zich op het extraheren van tekst of getallen uit een cel op basis van een specifieke positie en biedt verschillende methoden om dit in Excel te doen.

Twee kolommen vergelijken op overeenkomsten en verschillen in Excel
Dit artikel behandelt vrijwel alle scenario’s die u kunt tegenkomen bij het vergelijken van twee kolommen — en helpt u er snel uit!


  • Super Formulebalk (bewerk eenvoudig meerdere regels tekst en formules); Leeslay-out (lees en bewerk gemakkelijk grote aantallen cellen); Plakken naar Filterbereik...
  • Samengevoegde cellen/rijen/kolommen en bijbehorende gegevens behouden; inhoud van cellen splitsen; Dubbele rijen combineren en som/gemiddelde berekenen... Voorkom dubbele invoer in cellen; Bereiken vergelijken...
  • Selecteer dubbele of unieke rijen; selecteer lege rijen (alle cellen zijn leeg); superzoeken en fuzzy zoeken in meerdere werkmappen; willekeurig selecteren...
  • Exacte kopie van meerdere cellen zonder dat u de formuleverwijzing hoeft te wijzigen; automatisch verwijzingen maken naar meerdere werkbladen; opsommingstekens invoegen, selectievakjes en meer...
  • Favoriete formules, berekeningen, grafieken en afbeeldingen snel invoegen;Cellen met wachtwoord versleutelen;Mailinglijst maken en e-mails verzenden...
  • Tekst extraheren, tekst toevoegen, tekens verwijderen op een bepaalde positie, spaties verwijderen; gegevensbladstatistieken maken en afdrukken; converteren tussen celinhoud en opmerkingen...
  • Superfilter (sla filterinstellingen op en pas ze toe op andere werkbladen); Geavanceerd sorteren per maand, week, dag, frequentie en meer; Speciaal filter op vet, cursief...
  • Combineer werkmappen en werkbladen; voeg tabellen samen op basis van een sleutelkolom; splits gegevens op in meerdere werkbladen; batchconverteer xls-, xlsx- en PDF-bestanden...
  • Groepeer draaitabel op weeknummer, dag van de week en meer...Toon niet-vergrendelde en vergrendelde selecties met verschillende kleuren;Markeer cellen met formules of namen...
kte-tab 201905
  • Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
  • Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
officetab-onderkant