编写数据透视表筛选宏：排除Blank项且保留原有字段设置

我之前也踩过这个坑！用ShowAllItems = True确实会强制开启“Show items with no data”，而直接循环设置PivotItem.Visible = True经常因为透视表缓存的问题没效果。下面这个宏完全适配你的需求：

Sub FilterPivotExcludeBlankKeepNoDataSetting()
    Dim pvtTable As PivotTable
    Dim pvtField As PivotField
    Dim pvtItem As PivotItem
    Dim originalNoDataSetting As Boolean
    
    ' 替换为你的实际工作表、透视表和行标签字段名称
    Set pvtTable = ThisWorkbook.Worksheets("Sheet1").PivotTables("PivotTable1")
    Set pvtField = pvtTable.PivotFields("你的行标签字段名")
    
    ' 先保存原有的「显示无数据的项」设置
    originalNoDataSetting = pvtField.ShowItemsWithNoData
    
    ' 临时开启显示所有项，确保能遍历到所有PivotItem
    pvtField.ShowAllItems = True
    
    ' 遍历所有项，仅隐藏Blank项
    For Each pvtItem In pvtField.PivotItems
        pvtItem.Visible = (pvtItem.Name <> "(Blank)")
    Next pvtItem
    
    ' 恢复原有的「显示无数据的项」设置
    pvtField.ShowItemsWithNoData = originalNoDataSetting
    
    ' 刷新透视表确保筛选生效
    pvtTable.RefreshTable
End Sub

关键逻辑说明： #

• 先存后改再恢复：先记录ShowItemsWithNoData的原始状态，最后再还原，完美保留原有字段设置
• 临时开启ShowAllItems：这一步是核心！如果不开启，那些被隐藏的无数据项会被排除在遍历范围外，导致筛选不完整
• 精准判断Blank项：Excel默认把空白行标签显示为(Blank)，如果是其他语言版本（比如中文），要改成对应的字符串(空白)

使用注意事项： #

• 务必把代码中的Sheet1、PivotTable1和你的行标签字段名替换成你文件中的实际名称
• 如果运行后还是没效果，可以检查透视表是否处于手动刷新状态，或者字段名是否拼写正确

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