Hur kan jag enkelt och snabbt transponera räckvidd och stapla data i Excel?
Till exempel finns det vissa data som visas i grupper, och nu vill jag transponera intervallet och stapla data i varje kolumn enligt nedanstående skärmdump. I den här artikeln kommer jag att presentera metoderna för denna uppgift i Excel.
Transponera och stapla data med VBA
Transponera och stapla data med Transpose Table Dimension
Transponera och stapla data med VBA
Du kan använda en VBA-kod för att transponera och stapla data.
1. Välj data utom kolumnrubriker och tryck på Alt + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.
2. klick Insert > Modulernaoch klistra in under koden i Modulerna.
VBA: Transponera och stapla 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. Tryck F5 nyckeln och sedan har data transponerats och staplats. Se skärmdump:
Notera: I VBA-koden anger A att placera transponeringsdata i kolumn A på det aktiva arket och ersätta originaldata i kolumn A.
Transponera och stapla data med Transpose Table Dimension
Om du snabbt och enkelt vill transponera räckvidd och stapla data utan VBA-kod kan du ansöka Kutools för ExcelÄr Transponera bordsdimension verktyg.
Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. |
När du har installerat Kutools för Excel, gör så här :(Gratis nedladdning Kutools för Excel nu!)
1. Välj de data du använder, klicka på Kutools > Mätområde > Transponera bordsmått. Se skärmdump:
2. Kontrollera i dialogrutan Korsa bordet för att lista och välj en cell som du vill placera de transponerade uppgifterna i Resultatintervall (enstaka celler) textruta. Se skärmdump:
3. klick Ok. Nu har intervallet transponerats och staplats i kolumner.
Transponera räckvidd och stapeldata
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!