Ga naar hoofdinhoud

Hoe een draaitabel omkeren in Excel?

doc-omgekeerd-draaibaar-1
Heeft u ooit de draaitabel in Excel willen omkeren of transponeren, net als de onderstaande schermafbeeldingen. Nu zal ik u de snelle manieren vertellen om een ​​draaitabel in Excel om te keren.
(11 stappen) Draai de draaitabel om met de draaitabel en de draaigrafiekwizard
(7 stappen) Draai de draaitabel om met Kutools voor Excel's Transpose Table Dimensions goed idee 3

pijl blauw rechts bel Keer draaitabel om met draaitabel en draaigrafiekwizard

Om de draaitabel om te draaien, moet u eerst het dialoogvenster Draaitabel en draaigrafiekwizard openen en een nieuwe draaitabel maken in Excel.

1. druk op Alt+D+P sneltoetsen om het dialoogvenster Draaitabel en draaigrafiekwizard te openen en vink vervolgens aan Meerdere consolidatiebereiken optie onder Waar zijn de gegevens die u wilt analyseren sectie en Draaitabel optie onder Wat voor soort rapport wilt u maken pagina.

Note: U kunt ook de opdracht PivotTabe en PivoChart Wizard toevoegen aan de werkbalk Snelle toegang en klikken om het dialoogvenster te openen.

doc-omgekeerd-draaibaar-2

2. klikken Volgende om naar het volgende dialoogvenster te gaan om te controleren Ik zal de paginavelden maken optie en klik op de Volgende.

doc-omgekeerd-draaibaar-3

3. Selecteer uw basisgegevens en klik op Toevoegen om het gegevensbereik toe te voegen aan het Alle reeksen lijst. Zie screenshot:

doc-omgekeerd-draaibaar-4

4. klikken Volgende Om naar de laatste stap van de Wizard te gaan, vinkt u de optie aan die u nodig heeft onder Waar wilt u het draaitabelrapport plaatsen? sectie. Dan klikken Finish.

doc-omgekeerd-draaibaar-5

5. Nu wordt een nieuwe draaitabel gemaakt en dubbelklik op de laatste cel in de rechter benedenhoek van de nieuwe draaitabel, waarna een nieuwe tabel wordt gemaakt in een nieuw werkblad. Zie screenshots:
doc-omgekeerd-draaibaar-6

iv>

6. Maak vervolgens een nieuwe draaitabel op basis van deze nieuwe tabel. Selecteer de hele nieuwe tabel en klik Invoegen > Draaitabel > Draaitabel.

doc-omgekeerd-draaibaar-7

7. Vink vervolgens in het popping-dialoogvenster de optie aan die u nodig hebt Kies waar u het draaitabelrapport wilt plaatsen pagina.

doc-omgekeerd-draaibaar-8

8. klikken OK. Dan een Lijst met draaitabelvelden -venster wordt weergegeven en sleep het Rij en Kolom velden naar de Rijlabels sectie en Waarde veld naar Values sectie. Zie screenshot:

doc-omgekeerd-draaibaar-9

9. Klik vervolgens op een cel van de nieuwe draaitabel en ga naar het Design om te klikken op Rapportindeling> Weergeven in tabelvorm.

doc-omgekeerd-draaibaar-10

10. Ga vervolgens naar klikken Rapportindeling nogmaals om te klikken Herhaal alle artikellabels van de lijst. Zie screenshot:

doc-omgekeerd-draaibaar-11

Note: Dit is geen Herhaal alle artikellabels commando in de vervolgkeuzelijst van Rapportindeling knop in Excel 2007, sla deze stap gewoon over.

11. klikken Design > subtotalen > Geen subtotalen weergeven.

doc-omgekeerd-draaibaar-12

Nu is de draaitabel omgekeerd. Zie screenshot:

doc-omgekeerd-draaibaar-13

pijl blauw rechts bel Draai de draaitabel om met Kutools voor Excel's Transpose Table Dimensions

Met bovenstaande manier zijn er zoveel stappen om de taak op te lossen. Om uw werkefficiëntie aanzienlijk te verbeteren en de werkuren te verminderen, raad ik u aan de draaitabel om te draaien met Kutools for Excel's Transponeer tafelafmetingen kenmerk.

1. Selecteer de basisgegevens en klik op Kutools > RANGE > Transponeer tafelafmetingen.

doc omgekeerd zwenkbaar 20

2. In de Transponeer tafelafmetingen dialoogvenster, vink aan Kruis de tafel naar de lijst voor Type transponeren sectie en selecteer vervolgens de cel waarin u de nieuwe tabel wilt plaatsen.

Excel add-in tool voor het wijzigen van 2D-tabel in 1d

3. klikken Ok om een ​​nieuwe tabel te maken en kopteksten boven de nieuwe tabel in te voegen. Zie screenshot:

doc-omgekeerd-draaibaar-16

4. Selecteer de nieuwe tabel, inclusief de kopteksten, en klik Invoegen > Draaitabel > Draaitabel, dan in de Maak een draaitabel dialoogvenster, vink de optie aan die u nodig heeft onder Kies waar u het draaitabelrapport wilt plaatsen pagina.

doc-omgekeerd-draaibaar-17

5. klikken OK, en in Lijst met draaitabelvelden deelvenster, sleep Rij en Kolom velden naar Rijlabels sectie, en Waarde veld naar Values pagina.
doc-omgekeerd-draaibaar-9

6. Klik op een cel van de nieuwe draaitabel en klik Design > Rapportindeling > Weergeven in tabelvorm, dan klikken Rapportindeling nogmaals om te klikken Herhaal alle artikellabels. Zie screenshots:

doc-omgekeerd-draaibaar-10doc-omgekeerd-draaibaar-11

Note: Dit is geen Herhaal alle artikellabels commando in de vervolgkeuzelijst van de knop Rapportlay-out in Excel 2007, sla het gewoon over.

7. klikken Design > subtotalen > Geen subtotalen weergeven.

doc-omgekeerd-draaibaar-12

Nu is de draaitabel omgekeerd. Zie screenshot:

doc-omgekeerd-draaibaar-19

met Kutools for Excel's Transponeer tafelafmetingen functie, kunt u ook een lijsttabel omzetten in een kruistabel. Klik hier voor meer informatie.

Transponeer Kruistabel snel naar lijst of omgekeerd
Terwijl u een blad met kruistabel ontvangt dat u naar een lijsttabel moet converteren, hoe kunt u er dan snel mee omgaan? Met Kutools voor Excel's Transponeer tafelafmetingen hulpprogramma, kunt u de tabel met kruisafmetingen zo snel mogelijk converteren naar de tabel met drie afmetingen of vice versa.   Klik voor een gratis proefperiode van 30 dagen met volledige functionaliteit!
doc transponeer kruis naar lijst
 
Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen.

Relatieve artikelen:

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup  |   VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk   |  Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen   |  Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets:  12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

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

Omschrijving

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