Hvordan transponderer jeg rækkevidde og stak data let og hurtigt i Excel?
For eksempel er der nogle data, der vises i grupper, og nu vil jeg transponere området og stable dataene i hver kolonne som vist nedenstående skærmbillede. I denne artikel vil jeg introducere metoderne til denne opgave i Excel.
Transponere og stable data med VBA
Transponere og stabl data med Transpose Table Dimension
Transponere og stable data med VBA
Du kan anvende en VBA-kode til at transponere og stable data.
1. Vælg data undtagen kolonneoverskrifter, og tryk på Alt + F11 taster for at aktivere Microsoft Visual Basic til applikationer vindue.
2. klik indsatte > Moduler, og indsæt nedenstående kode til Moduler.
VBA: Transponere og stakke data
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. Trykke F5 nøglen, og derefter er dataene blevet transponeret og stablet. Se skærmbillede:
Bemærk: I VBA-koden angiver A at placere de transponerede data i kolonne A på det aktive ark og erstatte de originale data i kolonne A.
Transponere og stabl data med Transpose Table Dimension
Hvis du hurtigt og nemt vil transponere rækkevidde og stakke data uden VBA-kode, kan du anvende Kutools til Excel's Transponer borddimension nytte.
Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. |
Efter installation Kutools til Excel, gør venligst som nedenfor :(Gratis download Kutools til Excel nu!)
1. Vælg de data, du bruger, klik på Kutools > Range > Transponer borddimensioner. Se skærmbillede:
2. Kontroller i dialogboksen Kryds bord for at liste indstilling, og vælg en celle, du vil placere de transponerede data i Resultatinterval (enkeltcelle) tekstboks. Se skærmbillede:
3. klik Ok. Nu er området blevet transponeret og stablet i kolonner.
Transponere rækkevidde og stakdata
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!