Hoe bereik- en stapelgegevens eenvoudig en snel in Excel transponeren?
Er worden bijvoorbeeld enkele gegevens in groepen weergegeven, en nu wil ik het bereik transponeren en de gegevens in elke kolom stapelen zoals onderstaand screenshot. In dit artikel zal ik de methoden voor deze taak in Excel introduceren.
Transponeer en stapel gegevens met VBA
Transponeer en stapel gegevens met Transpose Table Dimension
Transponeer en stapel gegevens 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 in te schakelen Microsoft Visual Basic voor toepassingen venster.
2. klikken Invoegen > Module, en plak onderstaande code in het 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 key, en vervolgens zijn de gegevens getransponeerd en gestapeld. Zie screenshot:
Opmerking: In de VBA-code geeft A aan om de transponeergegevens in kolom A van het actieve blad te plaatsen en de originele gegevens in kolom A te vervangen.
Transponeer en stapel gegevens met Transpose Table Dimension
Als u snel en gemakkelijk bereik- en stapelgegevens wilt transponeren zonder VBA-code, kunt u zich aanmelden Kutools for Excel's Transponeer tafelafmeting utility.
Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. |
Na het installeren van Kutools voor Excel, doe het als volgt :(Gratis download Kutools voor Excel nu!)
1. Selecteer de gegevens die u gebruikt, klik op Kutools > RANGE > Transponeer tafelafmetingen. Zie screenshot:
2. Vink in het dialoogvenster aan Kruis de tafel naar de lijst optie en selecteer een cel waarin u de getransponeerde gegevens wilt plaatsen Resultatenbereik (enkele cel) tekstvak. Zie screenshot:
3. klikken Ok. Nu is het bereik getransponeerd en in kolommen gestapeld.
Transponeer bereik en stapel gegevens
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!