VBA-如何将数据透视表中的列分组，折叠分组并重命名标签？

Question

在给定数据透视表“ PivotTable1”的情况下，如何将数据透视表中的列分组，折叠组并重命名标签，如下所示：

可以的，我的列标签是日期。通常，我必须手动将日期一起按住Shift键并单击，然后右键单击以将它们分组为“ Group＃”，然后将标签重命名为更有意义的名称，例如“ Q1 2019”等。

如您所见，我在上面所做的两件事是将2018年1月，2月，3月的月份分组为一组，并将其重命名为“ Q1 2019”。

现在当文件截止到2030年以上时，此过程变得非常耗时且重复，因此我想知道是否有任何方法可以通过VBA实现此目的？

再次，宏的目标将是：

1. 使用某些条件对列标签进行分组-就我而言，分组日期 在一起变成四分之一。
2. 重命名新分组的列标签
3. 折叠新创建的组。

我可以使用以下类似的名称进行重命名。 Sheets("Sheet1").PivotTables(1).PivotFields("date").PivotItems("rdates").Caption = "Q1 2019"

我也可以操纵枢轴字段的属性     ActiveSheet.PivotTables("PivotTable1").PivotFields("date").Orientation = xlHidden With ActiveSheet.PivotTables("PivotTable1").PivotFields("date") .Orientation = xlRowField .Position = 2 End With

但是不确定如何根据条件分组？ I.E全部jan-mar = Q1 +年