Hoe kan ik eenvoudig en snel een bereik transponeren en gegevens stapelen in Excel?

Bijvoorbeeld, er zijn enkele gegevens die in groepen worden weergegeven, en nu wil ik het bereik transponeren en de gegevens in elke kolom stapelen, zoals te zien is in de onderstaande schermafbeelding. In dit artikel zal ik de methoden voor deze taak in Excel introduceren.

Gegevens transponeren en stapelen met VBA

Gegevens transponeren en stapelen met Kutools' Transpose Table Dimension

Gegevens transponeren en stapelen met VBA

U kunt een VBA-code toepassen om gegevens te transponeren en te stapelen.

1. Selecteer gegevens behalve kolomkoppen, en druk op Alt + F11 toetsen om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module, en plak 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 F5 toets, en vervolgens zijn de gegevens getransponeerd en gestapeld. Zie schermafbeelding:

Opmerking: In de VBA-code geeft A aan dat de getransponeerde gegevens in kolom A van het huidige werkblad moeten worden geplaatst en de oorspronkelijke gegevens in kolom A vervangen.

Gegevens transponeren en stapelen met Kutools' Transpose Table Dimension

Als u snel en eenvoudig een bereik wilt transponeren en gegevens wilt stapelen zonder VBA-code, kunt u Kutools voor Excel’s Transpose Table Dimension-hulpprogramma gebruiken.

1. Selecteer de gegevens die u gebruikt, klik op Kutools > Bereik > Tabeldimensie converteren. Zie schermafbeelding:

2. Schakel in het dialoogvenster Tweedimensionale tabel naar lijst optie in, en selecteer een cel waar u de getransponeerde gegevens wilt plaatsen in Resultatenbereik (per cel) tekstvak. Zie schermafbeelding:

3. Klik op Ok. Nu is het bereik getransponeerd en in kolommen gestapeld.

Demo: Bereik transponeren en gegevens stapelen met Kutools' Transpose Table Dimension