如何设置汇总项默认为求和而不是计数

ZLG5496 · 发表于 2011-7-28 12:32

向高手求教，如何设置数据透视表汇总项默认为求和而不是计数，汇总项目很多，一个一个字段设置很烦

minjiwei · 发表于 2011-7-28 13:03

保证汇总字段的记录都为数字就可以默认为求和，而不是计数。

minjiwei · 发表于 2011-7-28 13:05

或者写代码循环更改每一个数据字段，改成求和。

卢子 · 发表于 2011-7-28 20:43

选中区域，定位空单元格，输入0然后ctrl+enter结束，通过把空格转换成0就可以搞定

beckham175 · 发表于 2011-7-29 01:29

SQL指定是求和也可以，其實論壇有人介紹一個好方法，今日快睡覺了，沒找到，明天奉上！

leezhihong · 发表于 2011-7-29 08:15

计数项主要是因为数据源中存在空白单元格或文本型数值。
解决的方法有常规方法或VBA方法
①1.在数据源区域中第一行的空白单元格中输入数值0。
2.选中存在文本型数值的列，单击菜单“数据”→“分列”，单击“下一步”按钮，继续单击“下一步”按钮，“列数据格式”组合框中选中“常规”单选按钮，单击“完成”按钮。
3.创建数据透视表。

②

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

复制代码

（详见http://club.excelhome.net/viewthread.php?tid=349437）

achu · 发表于 2012-1-5 09:20

卢子发表于 2011-7-28 20:43
选中区域，定位空单元格，输入0然后ctrl+enter结束，通过把空格转换成0就可以搞定

这个方法简便又快捷,太好用了.谢谢分享

liyuli_1 · 发表于 2014-2-18 20:30

留个脚印备用！

ranger丶亦 · 发表于 2018-8-13 10:46

遇到同样的问题了，晕

		自动登录	找回密码
密码			免费注册

如何设置汇总项默认为求和而不是计数

最新热点 /1