Hoe transponeert u gegevens uit een kolom naar één enkele cel in Excel?
Bij het werken met Excel komt u regelmatig situaties tegen waarin u een verticale lijst met gegevens uit een kolom moet samenvoegen tot één enkele cel. Deze taak komt vaak voor bij het opstellen van samenvattingen, het exporteren van gegevens, het maken van rapporten of wanneer u geaggregeerde waarden naar een ander systeem of hulpmiddel moet sturen. Als de lijst die u wilt samenvoegen kort is, kunt u overwegen gebruik te maken van de TEKST.SAMENVOEGEN- of TEKST.SAMENV.-functie, maar deze worden omslachtig en minder efficiënt zodra u een groot aantal cellen moet combineren. In dit artikel delen we praktische en efficiënte methoden om gegevens uit een kolom naar één enkele cel in Excel te transponeren en samen te voegen — inclusief VBA-codeoplossingen en de gespecialiseerde Kutools voor Excel-add-in. Met deze oplossingen vermijdt u handmatige fouten en bespaart u aanzienlijk tijd, vooral bij grote datasets.
Gegevens uit een kolom naar één enkele cel transponeren met een Excel-formule
Gegevens uit een kolom naar één enkele cel transponeren met Kutools voor Excel
Gegevens uit een kolom naar één enkele cel transponeren met een Excel-formule
Als u liever geen macro’s of add-ins gebruikt, kunt u het gewenste resultaat ook bereiken met een Excel-formule. De volgende oplossingen maken gebruik van de TEKST.SAMENV.-functie, beschikbaar in Excel 2016 en nieuwere versies. Voor kleinere bereiken kunt u eventueel ook SAMENVOEGEN of SAMENV. gebruiken, maar TEKST.SAMENV. wordt sterk aanbevolen vanwege de eenvoud en het vermogen om lege cellen te negeren.
1. Klik op de cel waarin u het samengevoegde resultaat wilt weergeven (bijvoorbeeld B1) en typ het volgende:
=TEXTJOIN(",",TRUE,A1:A10)2. Druk op Enter. De waarden van A1 tot en met A10 verschijnen in B1, samengevoegd in één cel en gescheiden door komma’s. U kunt het scheidingsteken aanpassen door de komma tussen aanhalingstekens te vervangen (bijvoorbeeld ";" voor puntkomma’s of „ " voor spaties).
Als u dit op een ander bereik wilt toepassen, vervang dan A1:A10door uw gewenste celverwijzingen. De tweede parameter ()WAAR) zorgt ervoor dat Excel lege cellen in de lijst negeert. Als uw Excel-versie ouder is dan 2016 en TEKST.SAMENV. niet beschikbaar is, moet u VBA gebruiken of een combinatie van oudere formules.
Deze op formules gebaseerde aanpak is geschikt in omgevingen waarin macro’s zijn beperkt en werkt direct wanneer gegevens worden bijgewerkt. Houd er echter rekening mee dat formules traag of minder responsief kunnen worden bij zeer grote bereiken.
Gegevens uit een kolom naar één enkele cel transponeren met Kutools voor Excel
Als u Kutools voor Excel hebt geïnstalleerd, kunt u met de speciale Samenvoegen-functie efficiënt gegevens uit kolommen, rijen of een aangepast bereik samenvoegen tot één enkele cel. Dankzij de intuïtieve interface en flexibele opties voor het aanpassen van scheidingstekens en de uitvoerlocatie is deze methode ideaal voor gebruikers die regelmatig gegevens moeten aggregeren en een eenvoudige oplossing zonder formules zoeken – geen codering vereist.
Nadat u Kutools voor Excelhebt geïnstalleerd en geactiveerd, volgt u deze stappen:
1. Selecteer de gegevenskolom die u in één cel wilt samenvoegen.
2. Ga in het Excel-lint naar Kutools > Samenvoegen en splitsen > Rijen/kolommen/cellen samenvoegen en waarden behouden. Zie de schermafbeelding voor hulp bij de interface:
3. Selecteer in het pop-updialoogvenster Samenvoegen tot één cel onder Geselecteerde cellen combineren volgens de volgende opties. U kunt daarna een scheidingsteken kiezen voor de samengevoegde resultaten (bijvoorbeeld een komma, spatie of puntkomma) of uw eigen aangepaste scheidingsteken invoeren dat perfect aansluit bij uw behoeften. Zie de schermafbeelding als referentie:
4. Klik op OK of Toepassen. Kutools voegt uw geselecteerde kolomwaarden onmiddellijk samen tot één cel volgens uw instellingen. Het proces is razendsnel, zelfs bij grote datasets, en uw oorspronkelijke gegevens blijven intact. Voorbeeldresultaat:
 |  |  |
Download nu de gratis proefversie van Kutools voor Excel!
Kutools voor Excel maakt dit soort gegevensverwerking aanzienlijk eenvoudiger, vooral voor gebruikers die regelmatig tabellen combineren, opnieuw formatteren of opschonen. U kunt eenvoudig experimenteren met verschillende scheidingstekens om te voldoen aan de eisen van uw rapport, en de tool blijft betrouwbaar presteren – zelfs bij het verwerken van duizenden cellen. Mocht u problemen ondervinden (bijvoorbeeld dat de tool niet activeert), controleer dan of Kutools correct is geïnstalleerd en bijgewerkt én of u het juiste bereik hebt geselecteerd voordat u de actie uitvoert.
Hoewel Kutools samenvoegtaken stroomlijnt en de integriteit van de brongegevens behoudt, is het samengevoegde resultaat statisch: als u uw oorspronkelijke gegevens later bijwerkt, wordt de gecombineerde cel niet automatisch gesynchroniseerd, tenzij u de samenvoegactie opnieuw uitvoert.
Gegevens uit een kolom naar één enkele cel transponeren met een door de gebruiker gedefinieerde functie
Naast het combineren van lijstwaarden met de SAMENVOEGEN-functie van Excel kunt u ook een door de gebruiker gedefinieerde functie (UDF) in VBA gebruiken om snel alle waarden uit een kolom naar één cel te transponeren en samen te voegen. Deze methode is bijzonder efficiënt en flexibel, vooral bij lange lijsten of wanneer u aangepaste scheidingstekens tussen de items nodig hebt. Het is een ideale keuze voor gebruikers die comfortabel zijn met het inschakelen van macro’s en een herbruikbare oplossing zoeken voor toekomstige taken.
1. Druk tegelijkertijd op ALT + F11 om het venster van de Microsoft Visual Basic for Applications-editor te openen.
2. Klik in het VBA-venster op Invoegen > Module om een nieuwe module te maken en plak vervolgens de volgende code in de lege module:
VBA-code: Gegevens uit een kolom naar één enkele cel transponeren
Function transposeRange(Rg As Range)
'update by Extendoffice
Dim xCell As Range
Dim xStr As String
For Each xCell In Rg
If Not IsEmpty(xCell.Value) Then
xStr = xStr & xCell.Value & ","
End If
Next
transposeRange = Left(xStr, Len(xStr) - 1)
End Function
3. Sla uw wijzigingen op en sluit de VBA-editor. Ga terug naar uw werkblad en voer in de doelcel de volgende formule in:=transposerange(A1:A10). Druk op Enter om de formule toe te passen. De waarden uit A1 tot en met A10 worden hiermee samengevoegd in één enkele cel, gescheiden door komma’s (of een ander scheidingsteken naar keuze). Bekijk de onderstaande schermafbeelding voor een voorbeeld van het resultaat:
Opmerking: In deze code verwijst A1:A10 naar het gewenste kolombereik. U kunt het bereik naar wens aanpassen. Als u liever een ander scheidingsteken gebruikt dan een komma – bijvoorbeeld een puntkomma, spatie of streepje – wijzig dan het gedeelte xStr = xStr & xCell.Value & ",". Vervang de komma eenvoudigweg door uw gewenste teken(s). Zorg er bij het gebruik van VBA-UDF’s voor dat macro’s zijn ingeschakeld in uw werkmap. Als uw lijst lege cellen bevat, worden deze nog steeds meegenomen; als u lege cellen wilt uitsluiten, zijn verdere aanpassingen in de code mogelijk nodig.
Als u na het invoeren van de formule een #NAAM?-fout krijgt, controleer dan of u de code correct hebt gekopieerd, het bestand als een macro-ingeschakelde werkmap hebt opgeslagen en de macro beschikbaar is in het huidige werkboek. Mogelijk moet u bij het openen of bewerken van de VBA-code ook waarschuwingen over macrobeveiliging accepteren.
Deze VBA-aanpak biedt flexibiliteit bij het formatteren van de resultaten, maar is niet geschikt voor werkboeken die online worden gedeeld of onderhevig zijn aan macrobeperkingen. Bovendien werkt deze in sommige gevallen niet automatisch bij wanneer gegevens in het bronbereik veranderen, tenzij u een herberekening forceert. Voor eenmalige of geautomatiseerde taken blijft dit een efficiënte oplossing.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- 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!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins