Hoe voegt u twee kolommen samen tot één kolom met afwisselende waarden in Excel?
Hier staan twee kolommen in een werkblad. Hoe voegt u deze snel samen tot één kolom met afwisselende waarden – zoals weergegeven in de onderstaande schermafbeelding – zonder de waarden handmatig één voor één te herschikken?
Twee kolommen samenvoegen tot één met afwisselende waarden via VBA-code
Twee kolommen samenvoegen tot één met afwisselende waarden met Kutools voor Excel 
Twee kolommen samenvoegen tot één met afwisselende waarden via VBA-code
Er is in Excel geen ingebouwde functie om twee kolommen samen te voegen tot één kolom met afwisselende waarden, tenzij u VBA-code gebruikt.
1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen. Klik op Invoegen > Module om een nieuwe lege module aan te maken.
2. Kopieer de onderstaande code en plak deze in de module.
VBA: Twee kolommen samenvoegen tot één met afwisselende waarden
Sub MergeColumns()
'UpdatebyExtendoffice20180815
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNum As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select two columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
Application.ScreenUpdating = True
Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
For xFNum = 1 To xSRg.Count
Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
xDRg.Value = xSRg.Item(xFNum).Value
xI = xI + 1
Next xFNum
Application.ScreenUpdating = True
End Sub3. Druk op F5 en selecteer in het pop-updialoogvenster de twee kolommen die u wilt samenvoegen.
4. Klik op OK; selecteer in het tweede dialoogvenster een cel om het resultaat te plaatsen.
5. Klik op OK. De twee geselecteerde kolommen zijn nu samengevoegd tot één kolom met afwisselende waarden.
Twee kolommen samenvoegen tot één met afwisselende waarden met Kutools voor Excel
Als u Kutools voor Excel in Excel hebt geïnstalleerd, kunt u met de functie Transform Range deze taak in slechts drie eenvoudige stappen uitvoeren.
1. Selecteer de kolommen (twee of meer) die u wilt samenvoegen en klik op Kutools > Transform Range.
2. In het dialoogvenster Transform Range vinkt u de optie Range to single column aan en klikt u op Ok.
3. Selecteer in het pop-updialoogvenster een cel waarin u het resultaat wilt plaatsen en klik op OK.
De kolommen zijn nu samengevoegd tot één enkele kolom, waarbij de waarden afwisselend uit de twee oorspronkelijke kolommen komen.
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
Demo: Bereik transponeren 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