数据透视表使用VBA的数据范围选择

Question

我试图通过首先选择一个数据透视表中的数据，但除了大总计。 我仍然希望显示总计。当我写：

ActiveSheet.PivotTables("PivotTable1").DataBodyRange.select 

我得到这个：

（均包括总计数据被选中）

，但我希望它是这样的：

如何在选择数据时忽略总计？

Answer 1

随着Resize你可以改变的选择范围大小：

Dim rng As Range 
Set rng = ActiveSheet.PivotTables(1).DataBodyRange 
rng.Resize(rng.Rows.Count - 1, rng.Columns.Count - 1).Select 

rng.Rows.Count - 1负责通过1减少的行数我有1挤列排除两者总计出选择。

你能做到在一杆，如果你不喜欢Dim：

ActiveSheet.PivotTables(1).DataBodyRange.Resize(ActiveSheet.PivotTables(1).DataBodyRange.Rows.Count - 1, ActiveSheet.PivotTables(1).DataBodyRange.Columns.Count-1).Select