数据透视表添加" 2"报告过滤器中的值

时间:2017-02-06 23:30:14

标签: excel vba excel-vba

我有一个包含数据透视表的文件,其中过滤器值会根据上个月的日期按月更新。 VBA代码:

Dim SelectDate As String

SelectDate = Worksheets("Raw").Range("A3").Value
Worksheets("Main").PivotTables("PivotTable4").PivotFields("Date").CurrentPage = SelectDate

单元格A3中的值是基于以下函数的字符串:

  

= A1&安培;" "&安培; A2
  例如:2017年1月

更新数据透视表可以正常工作几个月,但是在这个月我的值不再正确更新,经过一些调查后我意识到我的数据透视表在过滤器中创建了两个条目January 2017January 20172,而November 2016失踪了:

enter image description here

但是,当我检查我的基础数据时,我每个月只有一个值:

June 2016
February 2016
March 2016
January 2016
November 2016
December 2016
August 2016
May 2016
October 2016
July 2016
September 2016
April 2016
January 2017
February 2017

请注意,当我使用相同的数据创建新的数据透视表时,过滤器仅显示January 2017

为什么现有数据透视表的过滤器会反映​​January 2017January 20172的任何建议?

感谢您的帮助!

1 个答案:

答案 0 :(得分:0)

这对我有用。这发生在我在其他地方读到的,因为我现在添加了数据行,或者因为我进行了查找和替换。但后来我改变了数据透视表中源数据的区域,比如说

'MASTER (3)'!$A$5:$EQ$600 to 'MASTER (3)'!$A$5:$EQ$6 

然后回到

'MASTER (3)'!$A$5:$EQ$600

这解决了问题