数据透视表使用VBAselect数据范围

我试图通过select它首先，但除了大总计工作在数据透视表中的数据。 我仍然希望显示总计。 当我写：

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

我得到这个：

（包括总计的所有数据都被选中）

但我希望它是这样的：

如何在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负责将行数减less1.我不得不将列数减1，以排除总数。

如果你不喜欢Dim ，你可以Dim做：

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