Hoe stapelt u kolommen van links naar rechts in Excel tot één enkele kolom?
Stel dat je meerdere kolommen hebt en ze van links naar rechts in één enkele kolom wilt stapelen, zoals op de onderstaande schermafbeelding is weergegeven. Zijn er naast het handmatig één voor één verplaatsen van de kolommen nog andere trucs om dit in Excel voor elkaar te krijgen?
Kolommen Links naar rechts stapelen naar één kolom met VBA
Kolommen Links naar rechts stapelen naar één kolom met Kutools voor Excel
Kolommen Links naar rechts stapelen naar één kolom met VBA
In Excel is er geen ingebouwde functie voor deze taak, maar met VBA-code kunt u dit eenvoudig realiseren.
1. Druk op Alt + F11 en klik vervolgens in het venster Microsoft Visual Basic for Applications op Invoegen > Module om een nieuwe lege module te maken.
2. Kopieer en plak de onderstaande code in de Module.
VBA: Kolommen stapelen in één kolom
Sub StackColumns()
'UpdatebyExtendoffice20180814
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNumR, xFNumC As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select 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 xFNumC = 1 To xSRg.Columns.Count
For xFNumR = 1 To xSRg.Rows.Count
Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
xDRg.Value = xSRg.Cells(xFNumR, xFNumC).Value
xI = xI + 1
Next xFNumR
Next xFNumC
Application.ScreenUpdating = True
End Sub
3. Druk op F5 om de code uit te voeren. Vervolgens verschijnt een dialoogvenster waarin u de kolommen kunt selecteren die u in één kolom wilt stapelen.
4. Klik op OK en selecteer een cel om het resultaat te plaatsen.
5. Klik op OK om af te ronden. De geselecteerde kolommen zijn nu gestapeld in één kolom.
Kolommen Links naar rechts stapelen naar één kolom met Kutools voor Excel
Als u Kutools voor Excel in Excel heeft geïnstalleerd, kunt u het hulpprogramma Transform Range gebruiken om deze taak uit te voeren.
Na het installeren van Kutools voor Excel, gaat u als volgt te werk:
1. Selecteer de kolommen die u wilt stapelen en klik op Kutools > Bereik > Transform Range.
2. Schakel in het dialoogvenster Transform Range het selectievakje Range to single row in en klik op Ok.
3. Selecteer in het pop-updialoogvenster een cel om het resultaat in te plaatsen en klik op OK.
De kolommen zijn nu samengevoegd tot één rij.
4. Selecteer de enkele rij, druk op Ctrl + C om deze te kopiëren, selecteer een andere cel waar de gestapelde kolom moet komen, klik met de rechtermuisknop en kies Transpose (T) in het contextmenu.
De enkele rij is nu omgezet naar een gestapelde kolom.
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