VBA筛选数据透视表xlRowField位置2字段仅显示指定项问题

你写的代码无法隐藏全部日期项，核心是踩了3个透视表VBA的高频坑：

• 透视表默认对日期格式字段开启自动分组，此时你遍历的PivotItems是自动生成的年/季度/月等分组层级项，并非数据源里的原始日期值或文本项，判断逻辑自然会漏判。
• 逐次修改PivotItem.Visible属性时，默认每改一次透视表就会触发一次全表重算，当透视项数量较多时，会出现属性刷新不同步、部分项状态未正确写入的问题。
• 直接拿PivotItem对象和目标文本做判断时，实际匹配的是透视表显示的本地化文本，日期项的显示名会受系统区域格式影响，和你预期的匹配规则不一致，会出现判断错误。

先做三个必要配置再执行筛选：一是临时关闭透视表自动重算、屏幕更新减少重算开销；二是清除日期自动分组，用项的SourceName（数据源原始值）做匹配，避免显示名差异导致的判断错误；三是先将目标项设为可见，避免触发透视表“至少保留一个可见项”的强制校验报错。

Application.ScreenUpdating = False
Dim pvt As PivotTable
Set pvt = DSheet.PivotTables("pvtSK")
' 开启手动更新，避免每次修改项都触发重算
pvt.ManualUpdate = True

With pvt.PivotFields("ASSEMBLY DATE")
    .Orientation = xlRowField
    .Position = 2
    
    ' 清除日期自动分组
    On Error Resume Next
    Dim grpItem As PivotItem
    For Each grpItem In .PivotItems
        If grpItem.IsGroup Then grpItem.Ungroup
    Next
    On Error GoTo 0
    
    ' 先保证目标项可见，避免触发无可见项报错
    .PivotItems("NOT YET ASSEMBLED").Visible = True
    
    ' 遍历隐藏其余项，用SourceName匹配原始值
    Dim pi As PivotItem
    For Each pi In .PivotItems
        If pi.SourceName <> "NOT YET ASSEMBLED" Then
            pi.Visible = False
        End If
    Next
End With

' 恢复设置刷新透视表
pvt.ManualUpdate = False
pvt.RefreshTable
Application.ScreenUpdating = True

排错提示：如果执行后仍有非目标项显示，先检查数据源中「NOT YET ASSEMBLED」文本是否存在前后空格、不可见换行符等脏数据，可将判断条件改为Trim(pi.SourceName) <> "NOT YET ASSEMBLED"适配这类情况。

内容的提问来源于stack exchange，提问作者RhettBrindle