如何在樞紐分析表中更改多個欄位設定？

當您在工作表中創建樞紐分析表後，將欄位拖到「資料透視表欄位列表」中的「值」列表時，可能會得到如以下截圖所示的所有相同的計數函數。但是現在，您希望用 求和函數來替換計數函數，該如何在Excel中一次更改多個樞紐分析表欄位的計算方式呢？

逐一手動更改樞紐分析表中的欄位設定

使用VBA代碼更改樞紐分析表中的多個欄位設定

逐一手動更改樞紐分析表中的欄位設定

在Excel中，您可以通過逐一更改「值欄位設定」對話框中的函數來更改欄位設定的計算方式，請按照以下步驟操作：

1. 選擇要在樞紐分析表中更改匯總函數的「值」區域中的欄位，然後右鍵單擊並選擇「值欄位設定」，請參見截圖：

2. 然後在「值欄位設定」對話框中，在「按此值匯總」標籤下選擇您要使用的計算類型，請參見截圖：

3. 然後點擊「確定」關閉此對話框，您可以看到計數函數已更改為求和函數，請參見截圖：

4. 重複上述步驟以逐一更改其他欄位的計算設定。

注意：您也可以通過右鍵單擊一個欄位單元格並選擇「按此值匯總」，然後從上下文菜單中選擇所需的計算方式來更改欄位設定。

使用VBA代碼更改樞紐分析表中的多個欄位設定

如果需要更改大量欄位計算，上述方法將耗時且繁瑣，這裡我可以介紹給您一段代碼，可以同時更改多個欄位設定。

1. 點擊樞紐分析表中的任意單元格。

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

3. 點擊「插入」>「 模組」，並將以下代碼粘貼到模組窗口中。

VBA代碼：更改樞紐分析表中的多個欄位設定

Public Sub SetDataFieldsToSum()
'Update 20141127
Dim xPF As PivotField
Dim WorkRng As Range
Set WorkRng = Application.Selection
With WorkRng.PivotTable
   .ManualUpdate = True
   For Each xPF In .DataFields
      With xPF
         .Function = xlSum
         .NumberFormat = "#,##0"
      End With
   Next
   .ManualUpdate = False
End With
End Sub

4. 然後按下F5鍵執行此代碼，您所選樞紐分析表中的所有欄位設定都將立即轉換為所需的計算方式，請參見截圖：

注意：在上述代碼中，您可以將求和函數更改為任何其他計算方式，例如平均值、最大值、最小值等。您只需將這些腳本中的Sum更改為其他函數即可：Public Sub SetDataFieldsToSum() 和 .Function = xlSum。