跳到主要內容

如何在Excel中反轉數據透視表?

文檔-反向數據透視表-1
您是否曾經想過在Excel中反轉或轉置透視表,就像下面顯示的屏幕截圖一樣。 現在,我將告訴您在Excel中反轉數據透視表的快速方法。
(11個步驟)使用數據透視表和數據透視圖嚮導的反向數據透視表
(7個步驟)使用Kutools反轉數據透視表以實現Excel的轉置表尺寸 好主意3

箭頭藍色右氣泡 帶有數據透視表和數據透視圖嚮導的反向數據透視表

若要反轉數據透視表,需要首先打開“數據透視表”和“ PivotChart嚮導”對話框,然後在Excel中創建一個新的數據透視表。

1。 按 Alt+D+P 快捷鍵打開“數據透視表”和“數據透視圖嚮導”對話框,然後檢查 多種合併範圍 選項下 您要分析的數據在哪裡 部分和 數據透視表 選項下 您要創建哪種報告 部分。

備註:您還可以將PivotTabe和PivoChart嚮導命令添加到快速訪問工具欄中,然後單擊以打開對話框。

文檔-反向數據透視表-2

2。 點擊 下一頁 轉到下一個對話框進行檢查 我將創建頁面字段 選項,然後單擊 下一頁.

文檔-反向數據透視表-3

3.選擇您的基本數據,然後單擊 加入 將數據范圍添加到 所有範圍 清單。 看截圖:

文檔-反向數據透視表-4

4。 點擊 下一頁 要轉到嚮導的最後一步,請在下面選擇所需的選項 您要將數據透視表報表放在何處 部分。 然後點擊 .

文檔-反向數據透視表-5

5.現在,創建了一個新的數據透視表,並雙擊新的數據透視表右下角的最後一個單元格,然後在新的工作表中創建了一個新表。 查看屏幕截圖:
文檔-反向數據透視表-6

iv>

6.然後基於該新表創建一個新的數據透視表。 選擇整個新表,然後單擊 插入 > 數據透視表 > 數據透視表.

文檔-反向數據透視表-7

7.然後在彈出的對話框中,在下面選擇所需的選項 選擇要放置數據透視表報表的位置 部分。

文檔-反向數據透視表-8

8。 點擊 OK。 然後一個 數據透視表字段列表 窗格出現,然後將 領域 行標籤 部分和“值”字段 價值觀 部分。 看截圖:

文檔-反向數據透視表-9

9.然後,在新數據透視表的任何單元格上單擊,然後轉到 設計 標籤以單擊報告佈局>以表格形式顯示。

文檔-反向數據透視表-10

10.然後點擊 報告格式 再次單擊 重複所有商品標籤 從列表中。 看截圖:

文檔-反向數據透視表-11

備註:這不是 重複所有商品標籤 下拉列表中的命令 報告格式 在Excel 2007中單擊按鈕,只需跳過此步驟。

11。 點擊 設計 > 分類匯總 > 不顯示小計.

文檔-反向數據透視表-12

現在,數據透視表已反轉。 看截圖:

文檔-反向數據透視表-13


箭頭藍色右氣泡 帶有Kutools的反向透視表,用於Excel的轉置表尺寸

通過上述方式,有很多步驟可以解決任務。 為了大大提高工作效率並減少工作時間,建議您使用以下方法翻轉數據透視表: Excel的Kutools轉置台尺寸 功能。

1.選擇基礎數據,然後單擊 庫工具 > 範圍 > 轉置台尺寸.

doc反向數據透視表20

2。 在裡面 轉置台尺寸 對話框,檢查 交叉表列出轉置類型 部分,然後選擇要放置新表格的單元格。

excel附加工具,用於將2d表更改為1d

3。 點擊 Ok 創建一個新表,然後在新表上方插入標題。 看截圖:

文檔-反向數據透視表-16

4.選擇新表,包括標題,然後單擊 插入 > 數據透視表 > 數據透視表,然後在 創建數據透視表 對話框中,在下面選擇所需的選項 選擇要放置數據透視表報表的位置 部分。

文檔-反向數據透視表-17

5。 點擊 OK,並在 數據透視表字段列表 窗格,拖動 字段 行標籤 部分,和 字段 價值觀 部分。
文檔-反向數據透視表-9

6.單擊新數據透視表的任何單元格,然後單擊 設計 > 報告格式 > 以表格形式顯示,然後單擊 報告格式 再次單擊 重複所有商品標籤。 查看屏幕截圖:

文檔-反向數據透視表-10文檔-反向數據透視表-11

備註:這不是 重複所有商品標籤 Excel 2007中“報告佈局”按鈕的下拉列表中單擊“命令”,只需跳過該命令即可。

7。 點擊 設計 > 分類匯總 > 不顯示小計.

文檔-反向數據透視表-12

現在,數據透視表已反轉。 看截圖:

文檔-反向數據透視表-19

這款獨特的敏感免洗唇膜採用 Moisture WrapTM 技術和 Berry Mix ComplexTM 成分, Excel的Kutools轉置台尺寸 功能,您還可以將列表表轉換為交叉表。 點擊這裡了解更多信息.


快速將交叉表移至列表,反之亦然

當您收到需要轉換為列表的帶有交叉表的工作表時,如何快速處理呢? 用 Excel的Kutools 轉置台尺寸 實用程序,您可以盡快將橫尺寸表轉換為三個尺寸表,反之亦然。   點擊即可獲得 30 天全功能免費試用!
doc轉置到列表
 
Kutools for Excel:擁有300多個便捷的Excel加載項,可以在30天內免費試用。

相關文章:

最佳辦公生產力工具

🤖 Kutools 人工智慧助手:基於以下內容徹底改變數據分析: 智慧執行   |  生成代碼  |  建立自訂公式  |  分析數據並產生圖表  |  呼叫 Kutools 函數...
熱門特色: 尋找、突出顯示或識別重複項   |  刪除空白行   |  合併列或儲存格而不遺失數據   |   沒有公式的回合 ...
超級查詢: 多條件VLookup    多值VLookup  |   跨多個工作表的 VLookup   |   模糊查詢 ....
高級下拉列表: 快速建立下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  比較範圍和列 ...
特色功能: 網格焦點   |  設計圖   |   大方程式酒吧    工作簿和工作表管理器   |  資源庫 (自動文字)   |  日期選擇器   |  合併工作表   |  加密/解密單元格    按清單發送電子郵件   |  超級濾鏡   |   特殊過濾器 (過濾粗體/斜體/刪除線...)...
前 15 個工具集12 文本 工具 (添加文本, 刪除字符,...)   |   50+ 圖表 類型 (甘特圖,...)   |   40+ 實用 公式 (根據生日計算年齡,...)   |   19 插入 工具 (插入二維碼, 從路徑插入圖片,...)   |   12 轉化 工具 (數字到單詞, 貨幣兌換,...)   |   7 合併與拆分 工具 (高級合併行, 分裂細胞,...)   |   ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能,體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。  點擊此處獲取您最需要的功能...

產品描述


Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
Comments (1)
No ratings yet. Be the first to rate!
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
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations