Hoe combineert u meerdere kolommen tot één enkele lijst in Excel?
Om meerdere kolommen te combineren of samen te voegen tot één lange lijst, kunt u de kolomgegevens normaal gesproken één voor één kopiëren en plakken in de gewenste kolom. Maar ik ken een paar snelle trucs om deze taak in Excel vlotter aan te pakken.
Meerdere kolommen combineren tot één lijst met VBA-code
Meerdere kolommen combineren tot één lijst met Kutools voor Excel
Meerdere kolommen combineren tot één lijst met VBA-code
In plaats van kolomgegevens steeds opnieuw te kopiëren en plakken, helpt de volgende VBA-code u deze taak snel en eenvoudig uit te voeren.
1. Houd de toetsen Alt + F11 ingedrukt in Excel; daardoor opent het venster Microsoft Visual Basic for Applications.
2. Klik op Invoegen > Module en plak de volgende macro in het Module-venster.
VBA-code: Meerdere kolommen combineren of samenvoegen tot één lijst
Sub CombineColumns1()
'updateby Extendoffice
Dim xRng As Range
Dim i As Integer
Dim xLastRow As Integer
Dim xTxt As String
On Error Resume Next
xTxt = Application.ActiveWindow.RangeSelection.Address
Set xRng = Application.InputBox("please select the data range", "Kutools for Excel", xTxt, , , , , 8)
If xRng Is Nothing Then Exit Sub
xLastRow = xRng.Columns(1).Rows.Count + 1
For i = 2 To xRng.Columns.Count
Range(xRng.Cells(1, i), xRng.Cells(xRng.Columns(i).Rows.Count, i)).Cut
ActiveSheet.Paste Destination:=xRng.Cells(xLastRow, 1)
xLastRow = xLastRow + xRng.Columns(i).Rows.Count
Next
End Sub
3. Druk vervolgens op de toets F5 om deze code uit te voeren. Er verschijnt een dialoogvenster waarin u wordt gevraagd het gegevensbereik te selecteren dat u wilt combineren tot één enkele kolom, zie screenshot:
4. Klik daarna op de knop OK. De geselecteerde kolommen worden dan samengevoegd tot één enkele kolom, zoals op de volgende screenshots is weergegeven:
 |  |  |
Tips: Na het uitvoeren van deze VBA-code worden de oorspronkelijke gegevens uit het bereik gewist. Sla deze daarom eerst ergens anders op als back-up.
Meerdere kolommen combineren tot één lijst met Kutools voor Excel
Als u Kutools voor Excel hebt geïnstalleerd, helpt de functie Bereik transformeren u meerdere kolommen samen te voegen tot één enkele kolom of rij.
Na het installeren van Kutools voor Excel, gaat u als volgt te werk:
1. Selecteer de kolomgegevens die u wilt samenvoegen tot één lijst.
2. Klik vervolgens op Kutools > Bereik > Bereik transformeren, zie screenshot:
3. In het dialoogvenster Bereik transformeren selecteert u de optie Bereik naar enkele kolom en klikt u op de knop Ok. Zie screenshot:
4. Klik in het daaropvolgende dialoogvenster Bereik transformeren op de cel waar u het resultaat wilt plaatsen, zie screenshot:
5. Klik daarna op de knop OK; uw geselecteerde kolommen zijn nu gecombineerd tot één enkele kolom op de door u gewenste locatie. Zie screenshot:
Download en gratis proefversieKutools voor Excel Nu!
Demo: Meerdere kolommen combineren tot één lijst met Kutools voor Excel
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