使用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