excel - 如何在 excel vba 中包含数据透视表过滤器标题

Question

我尝试生成代码以参考录制宏来创建可透视的报表过滤器标题。之后，我尝试使用 vba 运行它以根据我的数据创建可透视的报表过滤器标题，但它只是没有显示出来。如何解决这个问题，或者在使用 VBA 创建数据透视表时，我可以通过哪些其他方式包含数据透视表头？

Dim LastRow As Long, PRange As Range
LastRow = Worksheets("Result").Cells(Rows.Count, 2).End(xlUp).Row

Set PRange = Worksheets("Result").Range("A2:D" & LastRow).CurrentRegion
Dim pc As PivotCache, pt As PivotTable

Set pc = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=PRange)

Set pt = pc.CreatePivotTable(TableDestination:=Worksheets("wafermapvbd1").Cells(3, 1), TableName:="PivotTable100")

Worksheets("wafermapvbd1").PivotTables("PivotTable100").PivotFields("Device_name"). _
        ClearAllFilters
    Worksheets("wafermapvbd1").PivotTables("PivotTable100").PivotFields("Device_name").CurrentPage _
        = "(All)"
   Worksheets("wafermapvbd1").PivotTables("PivotTable100").PivotFields("Device_name"). _
        EnableMultiplePageItems = True

其他附加信息

我在工作表中的数据（“结果”）

实际的

预期的

标签： excelvbapivot-table