如何在数据透视表 VB 脚本中仅删除（空白）？

【问题标题】：How to remove only (blank) in pivot table VB script?如何在数据透视表 VB 脚本中仅删除（空白）？
【发布时间】：2021-04-10 10:54:08
【问题描述】：

我需要从我的数据透视表中删除（空白）。问题是当我下次使用数据透视表时没有选择新项目时这样做。

有解决办法吗？一种可能的解决方案是刷新数据透视表->

选择所有项目
删除空白

这是我用来删除空格的代码

    With ActiveSheet.PivotTables("PivotTable6").PivotFields("Campaign")
    .PivotItems("(blank)").Visible = False
    End With

【问题讨论】：

标签： excel vba

【解决方案1】：

在我看来，最好的做法是创建一个 Excel 表格来存储您的数据。

选择所有数据。
按主页选项卡、样式组和表格格式。
现在输入一个新行。表格会自动展开并换行。
然后修改数据透视表源以使用新表，方法是按数据透视表区域中的任意位置、分析选项卡、数据选项卡 - 更改数据源并键入表名称而不是范围。

现在使用下面的代码

Sub Macro1()

 With ActiveSheet.PivotTables("PivotTable6")
     .RefreshTable
     With .PivotFields("Campaign")
         .EnableMultiplePageItems = True
         .CurrentPage = "(All)"
         .PivotItems("(blank)").Visible = False
     End With
 End With

End Sub

【讨论】：