[求助]数据透视表字段设置求和

求助：在数据透视表中想在把所有选中的字段一次设置为求和。如图所示。我每一次做这类表时只要字段超过三个以上就会默认为计数。请问怎么设置为默认求和？

VBA方法：

Sub 新建透视表()

Dim ws As Worksheet

Dim ptcache As PivotCache

Dim pt As PivotTable

Dim prange As Range

Set ws = Sheet1

For Each pt In Sheet2.PivotTables

pt.TableRange2.Clear

Next pt

Set ptcache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _ SourceData:= Sheet1.Range("a1").CurrentRegion.Address)

Set pt = ptcache.CreatePivotTable(tabledestination:=Sheet2.Range("a3"), _ tablename:="透视表1")

pt.ManualUpdate = True

pt.AddFields RowFields:="项目", ColumnFields:="Data"

For Each prange In ws.Range(ws.Cells(1, 2), ws.Cells(1, 256).End(xlToLeft))

With pt.PivotFields(prange.Value)

    .Orientation = xlDataField

    .Name = " " & prange

    .Function = xlSum

End With

Next prange

pt.ManualUpdate = False

pt.ManualUpdate = True

End Sub