Hoe transposeert en stapelt u snel en eenvoudig een gegevensbereik in Excel?
Stel dat uw gegevens bijvoorbeeld zijn gegroepeerd en u het bereik nu wilt transponeren, zodat de gegevens uit elke kolom onder elkaar worden gestapeld—zoals te zien is in de schermafbeelding hieronder. In dit artikel beschrijf ik methoden om deze taak in Excel uit te voeren.
Gegevens transponeren en stapelen met VBA
Gegevens transponeren en stapelen met Tabel Transponeren Dimension van Kutools 
Gegevens transponeren en stapelen met VBA
U kunt VBA-code gebruiken om gegevens te transponeren en stapelen.
1. Selecteer Gegevens selecteren zonder kolomkoppen en druk op de toetsencombinatie Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de onderstaande code in de Module.
VBA: Gegevens transponeren en stapelen
Sub ConvertTableToList()
'UpdatebyExtendoffice20161121
Const TEST_COLUMN As String = "A"
Dim i As Long, j As Long
Dim iLastRow As Long
Dim iLastCol As Long
Application.ScreenUpdating = False
With ActiveSheet
iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = iLastRow To 2 Step -1
iLastCol = .Cells(i, .Columns.Count).End(xlToLeft).Column
For j = iLastCol To 3 Step -1
.Rows(i + 1).Insert
.Cells(i + 1, 2).Value = .Cells(i, j).Value
.Cells(i, j).Value = ""
Next j
Next i
.Rows(1).Delete
End With
Application.ScreenUpdating = True
End Sub
3. Druk op de toets F5 om de gegevens te transponeren en stapelen. Zie schermafbeelding:
Opmerking: In de VBA-code geeft A aan dat de getransponeerde gegevens in kolom A van het huidige werkblad worden geplaatst en de oorspronkelijke gegevens in kolom A vervangen.
Gegevens transponeren en stapelen met Tabel Transponeren Dimension van Kutools
Als u snel en eenvoudig een bereik wilt transponeren en gegevens wilt stapelen zonder VBA-code, kunt u het hulpprogramma Kutools voor Excel’s Tabel Transponeren Dimension gebruiken.
1. Selecteer de gegevens die u wilt gebruiken en klik op Kutools > Bereik > Tabeldimensie converteren. Zie schermafbeelding:
2. Schakel in het dialoogvenster het selectievakje Tweedimensionale tabel converteren naar eendimensionale tabel in en kies een cel waarin u de getransponeerde gegevens wilt plaatsen, via het tekstvak Resultaatbereik (één cel). Zie schermafbeelding:
3. Klik op OK. Het bereik is nu getransponeerd en in kolommen gestapeld.
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 en gegevens stapelen met Tabel Transponeren Dimension van Kutools
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