你的位置:
问答吧
-> excel
-> 问题详情
[分享] 让数据透视表中数字字段为默认求和!
应杨兄之邀:
数据透视表中,数据源有空格或文本的数字,数字区域的字段默认为"计数项".
怎么改为求和项呢?
我认为有2个方法,一个是用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),