求助：透视表中表外进行计算以及计数项问题

dreamway2008

两个关于透视表操作的问题请教诸位高手

1. 刚刚升级到EXCEL2002，发现在新的版本中EXCEL透视表的功能发生了一些变化，EXCEL2000的版本在形成透视表后，一些简单的一次性的计算可以在表外直接用公式计算，而在新的版本中，在表外做加减乘除等计算变成了GETPIVOTDATA，而且还不能下拉复制！固然可以用透视表中的计算字段实现该功能，单对一些一次性的计算终归很麻烦，不知道诸位大侠有没有什么好的解决方法？不过我发现如何使用到公式，如SUM等，有变成了传统的单元格引用，如SUM(B5:C5) - 这里B5, C5为透视表内单元格...

2. 因为数据表一些数据项中存在空格，因此在将数据拉到透视表中变成了“计数项”需要一项项调整为“求和项”，非常麻烦。前面有大侠指导说将数据列第一行改成0，并且通过分列设置来达到默认求和计算的目的，尝试了几次均告失败，不知道诸位有没有其他好的办法可以强制按求和项进行计算？

谢谢先！

BIN_YANG168

问题1：

 
问题2：

1.设法将数据区域都变为数值，空白的用0值替代。

2.先用前2行数据创建数据透视表，刷新后再重新选择全部区域在刷新

3.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

dreamway2008

谢谢了！弱弱的问一句，这个GETPIVOTDATA函数在什么时候有什么用啊？？百思不得其解....

BIN_YANG168

[原创]强烈推荐：透视表函数GETPIVOTDATA的用法