数据透视表按日期分组VBA

Question

我试图按季度分组我所拥有的数据透视表。 问题是日期列表在2015年到2018年之间。 我想要2017年的宿舍：所以开始日期是01/01/2017和截止日期2017年12月31日。 所以结果应该是： ＆lt; 01/01/2017，Q1，Q2，Q3，Q4，＆gt; 31/12/2017 这是我尝试过的代码：我不知道在哪里广告，例如！ 代码：

pvt.RowAxisLayout xlTabularRow
Set df = pvt.PivotFields("M/Y")
df.LabelRange.Group _
Start:=False, End:=False, Periods:=Array(False, False, False, False, 
False, True, False)
df.Caption = "Quarter"

谢谢你的帮助！