Vba 透视字段显示除空白以外的所有字段

我需要在刷新后更新透视过滤器，以选择除

空白

之外的所有过滤器选项
这里的其他答案使用了

.ShowAllItems

方法，该方法对我不起作用，因为它也会显示没有数据的项目（显示下的透视选项）

我尝试使用在另一个问题上找到的另一个解决方案，

.PivotItems（“（全部）”）.Visible=True

，然后删除blank，但这没有任何作用

如何修改透视字段

活动名称

以检查除空白之外的所有项目？

Sub PivotRefresh()

Dim ws As Worksheet
Dim pvt As PivotTable

Application.ScreenUpdating = False
ThisWorkbook.RefreshAll
Application.Calculation = xlCalculationManual
    For Each ws In Worksheets
        If ws.Name = "OC" Or ws.Name = "P2" Then
            For Each pvt In ws.PivotTables
                On Error Resume Next
                    pvt.PivotFields("Exclude").PivotItems("Yes").Visible = False
                    pvt.PivotFields("Activity Name").PivotItems("(All)").Visible = True
                    pvt.PivotFields("Activity Name").PivotItems("(blank)").Visible = False
                On Error GoTo 0
            Next pvt
        End If
        ws.Range("A:W").EntireColumn.AutoFit
    Next ws
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

---

当我必须这样做时，我只会使用类似于：

On Error Resume Next
With pvt
        .ClearAllFilters
        .PivotItems("(blank)").Visible = False
End With