对不同范围的数据透视表进行分组

【问题标题】：Grouping a pivot table different range对不同范围的数据透视表进行分组
【发布时间】：2020-06-18 08:56:44
【问题描述】：

我有一个数据透视表。我想将此枢轴不同的范围分组。我怎样才能做到这一点？

透视图

想要的支点

我正在尝试这段代码：

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)

【问题讨论】：

标签： excel vba pivot pivot-table

【解决方案1】：

我解决了！

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)

【讨论】：