跳到主要內容

如何將多個字段添加到數據透視表？

創建數據透視表時，需要將字段手動一一拖到“行標籤”或“值”中。 如果字段列表很長，我們可以快速添加一些行標籤，但其餘字段應添加到“值”區域。 一鍵單擊數據透視表，是否可以快速將其他所有字段添加到“值”區域中？

使用VBA代碼將多個字段添加到數據透視表的“值”區域中

箭頭藍色右氣泡 使用VBA代碼將多個字段添加到數據透視表的“值”區域中

不幸的是，沒有一個複選框可供我們快速單擊以快速檢查“數據透視表字段”列表中的所有字段，但是，使用以下VBA代碼，它可以幫助您立即將其餘字段添加到“值”區域。 請執行以下操作：

1. 創建數據透視表後，首先，應根據需要添加行標籤字段，並將值字段保留在 選擇要添加到報告中的字段 列表，請參閱屏幕截圖：</ p>

文檔添加多個字段-1

2。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications窗口.

3。 點擊 插入 > 模塊，然後將以下代碼粘貼到 模塊窗口.

VBA代碼：將多個字段添加到活動工作表中的數據透視表的“值”區域中

Sub AddAllFieldsValues()
'Update 20141112
    Dim pt As PivotTable
    Dim I As Long
    For Each pt In ActiveSheet.PivotTables
        For I = 1 To pt.PivotFields.Count
            With pt.PivotFields(I)
              If .Orientation = 0 Then .Orientation = xlDataField
            End With
        Next
    Next
End Sub

4。 然後按 F5 鍵以運行此代碼，所有剩餘字段已同時添加到“值”區域，請參見屏幕截圖：

文檔添加多個字段-1

備註：此VBA代碼適用於活動工作表的所有數據透視表。

相關文章：

如何列出工作表中的所有數據透視表？

如何檢查工作簿中是否存在數據透視表？

最佳辦公生產力工具

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

增強您的 Excel 技能 Kutools for Excel，體驗前所未有的效率。 Kutools for Excel 提供 300 多種高級功能，可提高工作效率並節省時間。  點擊此處獲取您最需要的功能...

kte選項卡201905

Office Tab 為 Office 帶來選項卡式界面，讓您的工作更輕鬆

  • 在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%，每天為您減少數百次鼠標點擊！

 

Comments (23)
No ratings yet. Be the first to rate!
Shafqat Ali
Shafqat Ali
This comment was minimized by the moderator on the site
I am running this code. How much time does it take to complete? It's now 45 minutes it's still running. Please help me. By the way, my total field columns are 3600.
Reply
0
0
danielbcn
danielbcn
This comment was minimized by the moderator on the site
Hi, is there a way to add only the columns unseleted ones? thanks. 
Reply
Report
0
0
Denis
Denis
This comment was minimized by the moderator on the site
Задача же не всегда стоит в получении списка, хочется допустим поправить названия таблиц или источников данных. Можете реализовать?
Reply
0
0
test
test
This comment was minimized by the moderator on the site
Is there a way to edit the macro that would send the fields into the rows label instead of the values?
Reply
0
0
Che
Che
This comment was minimized by the moderator on the site
If "Values are
"0" or "Null" how to suppress Row Values from Displaying

(ex. Sum of 2743 Difference)





Pivot "Rows"
Pivot "Values"





Row Labels





NP9 - Total Unexpended
Appropriations





Sum of OTHER Difference 1,045,355,165.31




Sum of 3200 Difference
0.00




Sum of 0108 Difference
12,873,630.29



Sum of 4586 Difference
(33,024,706.93)



Sum of 0148 Difference
(72,046,783.14)



Sum of 0129 Difference
(5,583,891.98)



Sum of 4598 Difference
(929,574.56)



Sum of 2743 Difference



Sum of 4041 Difference
0.00



Sum of 2799 Difference
Reply
0
0
Che
Che
This comment was minimized by the moderator on the site
Note: Che's error message:




Sub AddAllFieldsValues()




'Update 20141112



Dim
pt As PivotTable





Dim I As
Long





For Each
pt In ActiveSheet.PivotTables





For
I = 1 To pt.PivotFields.Count





End With







Next



Next




End Sub










Note: Che's trying to add the following
fields/snapshot- "Sum of OTHER Difference, Sum of 4096
Difference" over 80 fields to be
added







OTHER Difference



4096 Difference



4016 Difference
Reply
0
0
RAP
RAP
This comment was minimized by the moderator on the site
THANK YOU SO MUCH!!!
Reply
0
0
Pr
Pr
This comment was minimized by the moderator on the site
Thanks, helped me a lot
Reply
0
0
Neville
Neville
This comment was minimized by the moderator on the site
Works like a charm. Thanks
Reply
0
0
Zeeshan
Zeeshan
This comment was minimized by the moderator on the site
Hi.

It gives me a compile error when I click on Run

Please help
Reply
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations