Сводная таблица Выбор диапазона данных с использованием VBA

Question

Im пытается работать с данными в сводной таблице, выбирая их сначала, но за исключением грандиозных итогов. Я все еще хочу отображать грандиозные итоги. когда я пишу:

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