Группировка сводной таблицы в разные диапазоны - PullRequest
Новая
       8

Группировка сводной таблицы в разные диапазоны

0 голосов
/ 18 июня 2020

У меня есть сводная таблица. Я хочу сгруппировать этот стержень в разные диапазоны. Как я могу этого добиться?

сводное изображение

pi

требуемый поворотный

enter image description here Я пробую этот код: 

wb = GetWorkbook(Handle, Workbook)
ws = GetWorksheet(Handle, Workbook, Worksheet)
wb.Activate()
ws.Activate()
excel = ws.Application
sheet = excel.ActiveSheet
pvt = ws.PivotTables(myPTN)
pvt.LabelRange.Group(Start:=2, By:=7)

1 Ответ

0 голосов
/ 18 июня 2020

Решил! 

Dim wb, ws, excel, sheet As Object 
wb = GetWorkbook(Handle, Workbook)
ws = GetWorksheet(Handle, Workbook, Worksheet)

wb.Activate()
ws.Activate()
excel = ws.Application
sheet = excel.ActiveSheet

ws.PivotTables(myPTN).PivotFields(myField).DataRange.Cells(1,1).Group(Start:=True, End:=True, By:=myRange)
...