[分享] 让数据透视表中数字字段为默认求和!

应杨兄之邀:

数据透视表中,数据源有空格或文本的数字,数字区域的字段默认为"计数项".

怎么改为求和项呢?

我认为有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), 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

LP0Rfj17.rar (8.7 KB, 下载次数: 718)

再说用基本操作的方法:

先在数据源工作表中选前2行新建一个数据透视表,并确保第2行全部是数字,这样就可以骗过excel程序,你就得到一个数字字段全部是求和项的数据透视表,再更改透视表的数据源,为你需要添加的区域即可!

感谢YANJIE兄分享，当数据量很大时，不错的解决方法，好贴。

其中基础方法还要将数据源中文本型数值变为数字型，否则即使数据透视表中显示为求和，文本型数值数据也只是显示为0。

如果数据透视表已经生成了,要把数据字段从计数变为求和,假设数据透视表在sheet2工作表中的第1个数据透视表,则代码为:

Sub 透视表计算求和()
Dim pvtfield As PivotField
Sheet2.Activate
    For Each pvtfield In Sheet2.PivotTables(1).DataFields
    With pvtfield
        .Function = xlSum
        .Name = Replace(.Name, "计数", "求和")
    End With
    Next pvtfield
End Sub

示例文件如下: 

cUdaErN0.rar (9.23 KB, 下载次数: 331)

2007-11-25 17:28 上传

点击文件名下载附件
[分享] 让数据透视表中数字字段为默认求和!

服了，谢谢yanjie，我也刚刚好要用到！

有在home学习了高招！

说实话，没看懂。透视表我也用的，不过是简单的功能，很想达到版主附件中简洁明了的效果。版主的链接里是以2007中为基础，可否在2003中演示一下完整过程？

深深谢过～～～

謝謝大家，問題全部搞定，謝謝！

真的能学到很多的东西哟

确实不错.不过,本人还不会VBA的使用.要好好学习才行了.刚换了工作,需要用到这些功能