如何將多個欄位加入資料透視表？

作者Xiaoyang修改日期2025-09-09

建立樞紐分析表時，我們通常會逐一將欄位拖曳至「列標籤」或「數值」區域。若欄位清單很長，將其中幾個設為列標籤相對簡單，但將剩餘欄位逐一加入「數值」區域則相當耗時。有沒有一鍵快速將所有剩餘欄位加入「數值」區域的方法？

使用 VBA 程式碼將多個欄位加入資料透視表的數值區域

Excel 目前在欄位清單面板中尚未提供原生功能（例如「全選」核取方塊），讓您只需一鍵即可將所有剩餘欄位直接加入「數值」區域。不過，透過簡易的 VBA 巨集，您就能高效完成這項操作。若您經常需要重複執行此作業，或需處理大量資料欄位，此方法尤其實用。以下提供詳細步驟與必要注意事項，協助您順利應用：

1. 建立好您的資料透視表後，請以慣用的拖放方式，將欲作為列標籤的欄位加入。至於其他預計以數值形式彙總的欄位，請在選擇要加入報表的欄位區段中維持未勾選狀態。詳情請參閱下列截圖：

新增列標籤欄位

2. 按下 ALT + F11，即可開啟 Microsoft Visual Basic for Applications 編輯器視窗；或者，您也可以從 Excel 功能區點選開發人員 > Visual Basic 進入。請務必確認您正在正確的工作簿中操作！

3. 在 VBA 視窗中，前往插入> 模組建立新模組，接著將下列 VBA 程式碼複製並貼上至模組視窗中。

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 執行巨集，或點選 VBA 編輯器工具列中的「執行」按鈕。此巨集會自動處理目前工作表中的所有資料透視表：針對每個表格，將尚未加入「列標籤」或「欄標籤」的欄位直接新增至「數值」區域。完成後，所有可用資料欄位都會以彙總數值形式呈現在您的資料透視表中，助您快速掌握全面分析！詳情請參閱下列截圖：

執行 VBA 程式碼以新增多個欄位

注意：執行此巨集時，將對作用中工作表內的所有資料透視表套用變更。若您有多個資料透視表，卻僅想更新其中一個，建議先將該資料透視表暫時移至獨立工作表。執行 VBA 前務必儲存您的工作，因為巨集可能造成無法復原的變更。此外，此巨集會嘗試加入所有剩餘欄位（包含不適合進行數值彙總的欄位），可能導致非數值資料欄位出現彙總錯誤或產生無意義的結果。

太神奇了！在 Excel 中使用高效 Tabs，就像 Chrome、Edge、Firefox 和 Safari 一樣！
每天為您節省 50% 的時間，並減少數千次滑鼠點擊！

如何列出活頁簿中的所有資料透視表？

如何檢查活頁簿中是否已存在資料透視表？

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多