Excel 数据透视表报表筛选器

Question

由 powerquery 查询提供，我有一个主数据透视表（2.5+m 行，因此没有加载到工作表或数据模型，因为我想使用报告过滤器）。 使用“显示报告过滤器页面”，我将此数据透视表拆分为多个子表，然后导出并重新分配。 问题是即使子表也能获得完整的数据源:(，所以我坚持：

1. 为每个实体编辑查询、添加过滤器、刷新数据透视表和所有这些（繁琐的选项）。
2. 为所有实体提供包含完整来源的数据透视（不是选项）。
3. 取消选中“使用文件保存源数据”（现在实体的数据透视表不再可编辑）。

基本上，我只需要能够通过 vba 与枢轴源进行交互，但根据我的研究，如果不刷新所有查询（选项 1），这是不可能的。 或者，我可以重新加载到 dataModel，使用 vba 复制枢轴，但似乎我无法通过 dataModel 中的 vba “删除行”。

还有其他想法吗？我不敢相信我是唯一一个认为报告过滤器没有过滤数据透视源很愚蠢的人，这对我来说似乎是合乎逻辑的。

非常感谢，

Demo file

Answer 1

您可以使用以下代码为每个国家/地区生成单独的工作表。这会创建类似于“显示报告过滤器页面”的工作表，但会将数据粘贴为纯文本。

这是基于提供的样本表，如果已经存在同名的表，它现在不起作用。但是你可以添加一个条件来检查相同的

Sub SplitPivot()

Set pvtTable = Worksheets("pivot").PivotTables("PivotTable47")

For Each pvtitem In pvtTable.PivotFields("countries").PivotItems

    pvtTable.PivotFields("countries"). _
        ClearAllFilters
    pvtTable.PivotFields("countries").CurrentPage = pvtitem.Name
    Application.CutCopyMode = False
    pvtTable.PivotSelect "", xlDataAndLabel, True
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ' Sheets("Sheet5").Select
    ActiveSheet.Name = pvtitem.Name
    
    MsgBox pvtitem.Name & " Done"
        
Next

End Sub