Hoe kan ik meerdere kolommen snel stapelen in één kolom in Excel?

In Excel kan de functie Tekst naar kolommen een cel splitsen in meerdere kolommen op basis van een scheidingsteken, maar zijn er ook manieren om meerdere kolommen te stapelen in één kolom zoals in onderstaande schermafbeelding wordt getoond? In dit artikel zal ik enkele trucs introduceren om deze taak snel op te lossen.

Stapel meerdere kolommen in één met een formule

Stapel meerdere kolommen in één met VBA

Stapel meerdere kolommen in één met Bereik transformeren

Stapel meerdere kolommen in één met een formule

1. Selecteer het bereik dat u wilt stapelen en ga naar de Naam Box om dit bereik een naam te geven en druk op Enter toets. Zie screenshot:

2. Selecteer vervolgens een lege cel waar u de resultaten wilt plaatsen, voer deze formule in =INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1), druk op Enter toets en sleep de vulgreep naar beneden totdat een foutmelding wordt weergegeven. Zie screenshot:

Stapel meerdere kolommen in één met VBA

Hier is een VBA-code die u ook kan helpen.

1. Druk op Alt + F11 toetsen om het Microsoft Visual Basic for Applications-venster weer te geven.

2. Klik op Invoegen > Module, plak onderstaande code in de Module.

VBA: Kolommen stapelen in één

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

3. Druk op F5 toets om de code uit te voeren, er verschijnt een dialoogvenster om de brongegevens te selecteren en klik op OK, om een cel te selecteren om de resultaten te plaatsen. Zie screenshot:

4. Klik op OK. Nu zijn de kolommen gestapeld in één kolom.

Stapel meerdere kolommen in één met Bereik transformeren

Het gebruik van Kutools voor Excel’s Bereik transformeren-hulpprogramma kan u ook snel helpen bij het oplossen van dit probleem.

Na gratis installatie van Kutools voor Excel, doe het volgende:

1. Selecteer de kolomgegevens die u gebruikt en klik op Kutools > Bereik > Bereik transformeren. Zie screenshot:

2. In het Bereik transformeren dialoogvenster, vink aan Bereik naar enkele kolom optie, en klik op Ok, selecteer vervolgens een cel om de resultaten te plaatsen. Zie screenshot:

3. Klik op OK. Nu zijn de kolommen gestapeld in één enkele kolom.