VBA数据透视表表格分组字段格式会干扰过滤

Question

我遇到了一个非常讨厌的问题，请帮助我解决它。我有一个数据透视表，该数据透视表是从外部源获取数据而生成的。我需要过滤该表以获取一些信息，然后将其粘贴到另一个报告中。使用Excel VBA - Privot table filter multiple criteria中的方法可以对大多数页面，行或列进行过滤 或者只是当前页面。 问题在于按数据透视表分组的字段，例如时间。我正在使用的表的时间戳逐年累月。对于分组值，Excel会重新设置值，例如PivotItem“ 2018”不等于值“ 2018”

以下代码或任何比较代码停止工作

Set PVT = ActiveSheet.PivotTables("PivotTable1")
For Each PivotItem In PVT.PivotFields("Years").PivotItems
If Not IsError(Application.Match(PivotItem.Caption, "2018", 0)) Then 
    PivotItem.Visible = True
Else
    PivotItem.Visible = False
End If
Next PivotItem

在枢轴范围内查看2018年的格式时，我看到它具有文本格式以及一些隐藏的字符，由于我看不到所有这些字符，因此我无法完全复制它们。

如何对分组的数据透视表行设置过滤器？