Hoppa till huvudinnehåll

Hur vänder man en pivottabell i Excel?

doc-omvänd-svängbar-1
Har du någonsin velat vända eller transponera pivottabellen i Excel precis som nedanstående skärmdumpar. Nu kommer jag att berätta de snabba sätten att vända en pivottabell i Excel.
(11 steg) Omvänd pivottabell med PivotTable och PivotChart Wizard
(7 steg) Omvänd pivottabell med Kutools för Excels transponerande tabelldimensioner bra idé3

pil blå höger bubbla Omvänd pivottabell med PivotTable och PivotChart Wizard

För att vända pivottabellen måste du öppna PivotTable och PivotChart Wizard-dialogrutan först och skapa en ny pivottabell i Excel.

1. Tryck Alt + D + P snabbtangenter för att öppna dialogrutan för pivottabell och pivotdiagram, kontrollera sedan Flera konsolideringsområden alternativet under Var är de data som du vill analysera avsnitt och pivottabellen alternativet under Vilken typ av rapport vill du skapa sektion.

Anmärkningar: Du kan också lägga till kommandot PivotTabe och PivoChart Wizard i snabbåtkomstverktygsfältet och klicka för att öppna dialogrutan.

doc-omvänd-svängbar-2

2. klick Nästa för att gå till nästa dialog för att kontrollera Jag kommer att skapa sidfält alternativet och klicka på Nästa.

doc-omvänd-svängbar-3

3. Välj basdata och klicka sedan på Lägg till för att lägga till dataområdet till Alla intervall lista. Se skärmdump:

doc-omvänd-svängbar-4

4. klick Nästa för att gå till det sista steget i guiden, kontrollera det alternativ du behöver under Var vill du placera pivottabellrapporten sektion. Klicka sedan Finish.

doc-omvänd-svängbar-5

5. Nu skapas en ny pivottabell och dubbelklickar på den sista cellen i det nedre högra hörnet av den nya pivottabellen, sedan skapas en ny tabell i ett nytt kalkylblad. Se skärmdumpar:
doc-omvänd-svängbar-6

iv>

6. Skapa sedan en ny pivottabell baserat på den här nya tabellen. Välj den helt nya tabellen och klicka Insert > pivottabellen > pivottabellen.

doc-omvänd-svängbar-7

7. Kontrollera sedan det alternativ du behöver under poppdialogen Välj var du vill att pivottabellrapporten ska placeras sektion.

doc-omvänd-svängbar-8

8. klick OK. Då en Pivottabellfältlista visas och drar Rad och Kolumn fält till Radetiketter avsnitt och Värde-fält till Värden sektion. Se skärmdump:

doc-omvänd-svängbar-9

9. Klicka sedan på valfri cell i den nya pivottabellen och gå till Designa flik för att klicka på Rapportlayout> Visa i tabellform.

doc-omvänd-svängbar-10

10. Gå sedan till klicka Rapportlayout igen för att klicka Upprepa alla artikeletiketter från listan. Se skärmdump:

doc-omvänd-svängbar-11

Anmärkningar: Detta är nej Upprepa alla artikeletiketter kommandot i listrutan över Rapportlayout knappen i Excel 2007, hoppa över det här steget.

11. klick Designa > delsummor > Visa inte delsummor.

doc-omvänd-svängbar-12

Nu är pivottabellen omvänd. Se skärmdump:

doc-omvänd-svängbar-13

pil blå höger bubbla Omvänd pivottabell med Kutools för Excel: s Transpose Table Dimensions

Med ovanstående sätt finns det så många steg för att lösa uppgiften. För att avsevärt förbättra din arbetseffektivitet och minska arbetstiden föreslår jag att du vänder pivottabellen med Kutools för ExcelÄr Transponera bordsmått särdrag.

1. Välj basdata och klicka Kutools > Mätområde > Transponera bordsmått.

doc omvänd svängbar 20

2. I Transponera bordsmått dialogrutan, kontrollera Korsa bordet för att lista under Transponera typ avsnittet och välj sedan cellen du vill lägga till den nya tabellen.

excel-tilläggsverktyg för att ändra 2d-tabell till 1d

3. klick Ok för att skapa en ny tabell och sedan infoga rubriker ovanför den nya tabellen. Se skärmdump:

doc-omvänd-svängbar-16

4. Välj den nya tabellen, inklusive rubrikerna, och klicka Insert > pivottabellen > pivottabellen, sedan i Skapa pivottabell dialogrutan, markera det alternativ du behöver under Välj var du vill att pivottabellrapporten ska placeras sektion.

doc-omvänd-svängbar-17

5. klick OK, och i Pivottabellfältlista ruta, dra Rad och Kolumn fält till Radetiketter avsnitt och Värde fält till Värden sektion.
doc-omvänd-svängbar-9

6. Klicka på valfri cell i den nya pivottabellen och klicka Designa > Rapportlayout > Visa i tabellform, Klicka sedan Rapportlayout igen för att klicka Upprepa alla artikeletiketter. Se skärmdumpar:

doc-omvänd-svängbar-10doc-omvänd-svängbar-11

Anmärkningar: Detta är nej Upprepa alla artikeletiketter kommandot i rullgardinsmenyn med knappen Rapportlayout i Excel 2007, hoppa över det.

7. klick Designa > delsummor > Visa inte delsummor.

doc-omvänd-svängbar-12

Nu är pivottabellen omvänd. Se skärmdump:

doc-omvänd-svängbar-19

Med Kutools för ExcelÄr Transponera bordsmått funktion kan du också konvertera listtabell till tvärbord. Klicka här för att få mer information.

Transportera snabbt tvärbord för att lista eller tvärtom
Medan du får ett ark med tvärbord som du behöver konvertera till listtabell, hur kan du snabbt hantera det? Med Kutools från Excel Transponera bordsmått verktyget kan du konvertera korsdimensionstabell till tre demensionstabeller eller vice versa så fort du kan.   Klicka för 30-dagars fullfjädrad gratis provperiod!
doc transponera kors till lista
 
Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar.

Relativa artiklar:

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup  |   VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar   |  Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler   |  Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser:  12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

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...

Beskrivning

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!
Comments (1)
No ratings yet. Be the first to rate!
King Storm
King Storm
This comment was minimized by the moderator on the site
VBA code:

Sub Unpivot()
'
Dim Rowlabel As Range
Dim Columnlabel As Range
Dim Pap As Range
Dim Tabl As Range
Dim i As Integer
Dim j As Integer
Dim a As Integer
Dim b As Integer
Dim Data As Range
Dim k As Integer
Dim Label As Range
Dim pvtCache As PivotCache
Dim pvt As PivotTable
Dim SrcData As String
'
ActiveSheet.Copy Before:=Worksheets(1)
Set Tabl = Selection
For Each Pap In Tabl
If Pap.MergeCells Then
With Pap.MergeArea
.UnMerge
.Value = Pap.Value
End With
End If
Next
i = Application.InputBox("So dong chua label", "Hoang", i, Type:=2)
j = Application.InputBox("So cot chua label", "Hoang", j, Type:=2)
On Error Resume Next
Sheets("Unpivot_Table").Delete
Sheets.Add.Name = "Unpivot_Table"
Set Pap = Range("Unpivot_Table!B2")
b = Tabl.Rows.Count
a = Tabl.Columns.Count
Set Data = Range(Tabl.Cells(i + 1, j + 1), Tabl.Cells(b, a))
Set Columnlabel = Range(Tabl.Cells(i + 1, 1), Tabl.Cells(b, j))
Set Rowlabel = Range(Tabl.Cells(1, j + 1), Tabl.Cells(i, a))
Pap.Select
For Each Column In Data.Columns
Column.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Columnlabel.Copy
Selection.Offset(0, 1).PasteSpecial Paste:=xlPasteValues
Column.Copy
Selection.Offset(b - i, -1).Select
Next Column
Pap.Offset(0, j + 1).Select
For Each Column In Rowlabel.Columns
Column.Copy
Range(Selection, Selection.Offset(b - i - 1, 0)).PasteSpecial Paste:=xlPasteValues, Transpose:=True
Selection.End(xlDown).Offset(1, 0).Select
Next Column
Set Label = Range(Pap.Offset(-1, 0), Pap.Offset(0, i + j + 1))
For k = 1 To i + j + 1
Label.Cells(1, k).Value = Application.InputBox(Label.Cells(2, k).Value & " la", "Hoang", k, Type:=2)
Next
Range(Pap.End(xlUp), Pap.End(xlDown).End(xlToRight)).Select
SrcData = ActiveSheet.Name & "!" & Selection.Address
On Error Resume Next
Sheets("Pivot").Delete
Sheets.Add.Name = "Pivot"
Set pvtCache = ActiveWorkbook.PivotCaches.Create( _
SourceType:=xlDatabase, _
SourceData:=SrcData)
Set pvt = pvtCache.CreatePivotTable( _
TableDestination:="Pivot!" & Sheets("Pivot").Range("A3").Address(ReferenceStyle:=xlR1C1), _
TableName:="PivotTable1")
End Sub
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations