如何从切片器中删除空白行？

Question

我有一个切片器，用于操作数据透视表。数据透视表是一个过滤器列表。最终，切片器+数据透视表用于检索数据并为最终用户填充工作表。

问题

我最近添加了一个自动填充数据的组合框，以便最终用户可以快速输入他们想要的内容，而不是花时间滚动每个切片器并选择适当的选项。当我测试表时，我注意到我的一个切片机的顶部出现了一个空白行。如何删除此空白行？

尝试

我检查了数据透视表+切片器的数据源，没有空白行。我做了GoTo - ＆gt;空白以尝试隔离任何空白单元格（数据中没有空白单元格）。我刷新了数据源，我还将数据源更改为应该是什么，尽管我的数据透视表数据中没有空白，但切片器中的空行仍然存在。我还去了切片机设置并选中了“隐藏没有数据的项目”但仍然是，切片器中的空白条目仍然存在。

我想补充说，操纵数据透视表的vba代码不会以任何方式修改切片器。在我的vba中，我打电话给：

当我锁定纸张时：

Me.Protect DrawingObjects:=False, UserInterfaceOnly:=True, AllowUsingPivotTables:=True

在用户从自动填充下拉列表中选择条目后的ComboBox1_Click()事件中：

ActiveSheet.PivotTables("PivotTable").PivotFields("Portfolio").CurrentPage = _
                ComboBox1.Value

当用户点击“清除过滤器”按钮时，我会调用：

ActiveWorkbook.ActiveSheet.PivotTables("PivotTable").ClearAllFilters

这些是我的vba代码中对数据透视表的唯一操作。