Gå til hovedindhold

Sådan vender du en pivottabel i Excel?

doc-reverse-pivottable-1
Har du nogensinde ønsket at vende eller transponere drejetabellen i Excel ligesom nedenstående skærmbilleder vist. Nu vil jeg fortælle dig de hurtige måder at vende en pivottabel i Excel.
(11 trin) Vend pivottabellen med PivotTable og PivotChart Wizard
(7 trin) Omvendt drejetabel med Kutools til Excel's Transponer tabeldimensioner god idé3

pil blå højre boble Omvendt pivottabel med PivotTable og PivotChart Wizard

For at vende pivottabellen skal du åbne PivotTable og PivotChart Wizard-dialogboksen først og oprette en ny pivottabel i Excel.

1. Trykke Alt + D + P genvejstaster for at åbne PivotTable og PivotChart Wizard dialog, så tjek Flere konsolideringsområder mulighed under Hvor er de data, du vil analysere afsnit og Pivottabel mulighed under Hvilken slags rapport vil du oprette sektion.

Bemærk: Du kan også tilføje kommandoen PivotTabe og PivoChart Wizard til værktøjslinjen Hurtig adgang og klikke for at åbne dialogen.

doc-reverse-pivottable-2

2. klik Næste for at gå til den næste dialog for at kontrollere Jeg opretter sidefelterne valgmulighed, og klik på knappen Næste.

doc-reverse-pivottable-3

3. Vælg dine basisdata, og klik derefter på Tilføj for at tilføje dataområdet til Alle intervaller liste. Se skærmbillede:

doc-reverse-pivottable-4

4. klik Næste for at gå til det sidste trin i guiden skal du kontrollere den indstilling, du har brug for under Hvor vil du placere PivotTable-rapporten afsnit. Klik derefter på Finish.

doc-reverse-pivottable-5

5. Nu oprettes en ny pivottabel, og dobbeltklik på sidste celle i højre hjørne af den nye pivottabel, så oprettes en ny tabel i et nyt regneark. Se skærmbilleder:
doc-reverse-pivottable-6

iv>

6. Opret derefter en ny pivottabel baseret på denne nye tabel. Vælg den helt nye tabel, og klik indsatte > Pivottabel > Pivottabel.

doc-reverse-pivottable-7

7. Kontroller derefter den valgmulighed, du har brug for under poppedialogen Vælg, hvor pivottabellen skal placeres sektion.

doc-reverse-pivottable-8

8. klik OK. Så a Pivottabel-feltliste ruden vises, og træk i Række , Kolonne felter til Rækkeetiketter sektion og værdifelt til Værdier afsnit. Se skærmbillede:

doc-reverse-pivottable-9

9. Klik derefter på en vilkårlig celle i den nye pivottabel, og gå til Design fanen for at klikke på Rapportlayout> Vis i tabelform.

doc-reverse-pivottable-10

10. Gå derefter til klik Rapportlayout igen for at klikke Gentag alle varemærkater fra listen. Se skærmbillede:

doc-reverse-pivottable-11

Bemærk: Dette er nej Gentag alle varemærkater kommandoen i rullelisten over Rapportlayout i Excel 2007, skal du bare springe dette trin over.

11. klik Design > subtotaler > Vis ikke subtotaler.

doc-reverse-pivottable-12

Nu er drejetabellen omvendt. Se skærmbillede:

doc-reverse-pivottable-13

pil blå højre boble Omvendt drejetabel med Kutools til Excel's Transpose Table Dimensions

Med ovenstående måde er der så mange trin til at løse opgaven. For at forbedre din arbejdseffektivitet og reducere arbejdstiden betydeligt, foreslår jeg, at du vender drejetabellen om med Kutools til Excel's Transponer borddimensioner funktion.

1. Vælg basisdata, og klik på Kutools > Range > Transponer borddimensioner.

doc omvendt drejelig 20

2. i Transponer borddimensioner dialog, tjek Kryds bord for at liste under Transponere type sektion, og vælg derefter den celle, du vil placere den nye tabel.

excel-tilføjelsesværktøj til ændring af 2d-tabel til 1d

3. klik Ok for at oprette en ny tabel og derefter indsætte overskrifter over den nye tabel. Se skærmbillede:

doc-reverse-pivottable-16

4. Vælg den nye tabel inklusive overskrifterne, og klik indsatte > Pivottabel > Pivottabel, så i Opret pivottabel dialog, skal du kontrollere den mulighed, du har brug for under Vælg, hvor pivottabellen skal placeres sektion.

doc-reverse-pivottable-17

5. klik OK, Og i Pivottabel-feltliste træk Række , Kolonne felter til Rækkeetiketter sektion og Værdi felt til Værdier sektion.
doc-reverse-pivottable-9

6. Klik på en hvilken som helst celle i den nye pivottabel, og klik på Design > Rapportlayout > Vis i tabelform, og klik derefter på Rapportlayout igen for at klikke Gentag alle varemærkater. Se skærmbilleder:

doc-reverse-pivottable-10doc-reverse-pivottable-11

Bemærk: Dette er nej Gentag alle varemærkater kommandoen i rullelisten med rapportlayout-knappen i Excel 2007, bare spring den over.

7. klik Design > subtotaler > Vis ikke subtotaler.

doc-reverse-pivottable-12

Nu er drejetabellen omvendt. Se skærmbillede:

doc-reverse-pivottable-19

Med Kutools til Excel's Transponer borddimensioner funktion, kan du også konvertere listetabel til krydstabel. Klik her for at vide mere information.

Transporter hurtigt krydstabel til liste eller omvendt
Mens du modtager et ark med krydstabel, som du skal konvertere til listen, hvordan kan du hurtigt håndtere det? Med Kutools fra Excel Transponer borddimensioner hjælpeprogram, kan du konvertere tværdimensionstabel til tre demensionstabeller eller omvendt så hurtigt som muligt.   Klik for 30-dages gratis prøveversion med alle funktioner!
doc transponere kryds til liste
 
Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage.

Relative artikler:

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier  |   Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar   |  Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler   |  Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt:  12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

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

Beskrivelse

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