新数据透视表的 Excel 标准数据透视表

如何解决新数据透视表的 Excel 标准数据透视表

我正在尝试为我对标准化 Excel 工作表的所有分析制作一个标准化的 Excel 文件，我可以将其从我的软件程序中导入。 我需要 1 个枢轴，我在文章参考中有一个过滤器。我的问题是，如果我想过滤它只能显示

在源数据中，我已经为所有不同的文章创建了一个带有过滤器的数据透视表。 我想要自动化的是，从这个数据透视表中，我希望将特定文章的数据设置到新工作表中，并且新数据透视表会使用新过滤器自动从这些新工作表中加载数据。

Sub Macro39()
'
' Macro39 Macro
'

'
    Sheets("Pivot per article").Select
    Range("F264").Select
    Selection.ShowDetail = True
    Sheets("Blad11").Select
    Sheets("Blad11").Name = "Test123"
    Sheets("Test123").Select
    Sheets("Test123").Move Before:=Sheets(26)
    Sheets("Pivottest123").Select

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase,SourceData:= _
        "Test123!R1C1:R1048576C33",Version:=6).CreatePivottable TableDestination:= _
        "Pivottest123!R1C1",TableName:="Pivot15",DefaultVersion:=6
    Sheets("Pivottest123").Select
    Cells(1,1).Select
        With ActiveSheet.Pivottables("Pivot15").PivotFields("Reference")
        .Orientation = xlPageField
        .Position = 1
    End With
    ActiveSheet.Pivottables("Pivot15").PivotFields("Reference").CurrentPage _
        = "(All)"
    With ActiveSheet.Pivottables("Pivot15").PivotFields("Reference")
        .PivotItems("Migration").Visible = False
    End With
    ActiveSheet.Pivottables("Pivot15").PivotFields("Reference"). _
        EnableMultiplePageItems = True
End Sub

谁能帮我从现有数据透视表中创建这个新数据透视表？