交换数据透视表列标题的位置

Question

我想交换数据透视表列标题的位置

根据截图：

列标题属于“报价类型”列。

我希望列标题 TYPE 1 位于列标题 TYPE 2 的左侧，而后者又位于列标题 TYPE 3 的左侧。

忽略空格。

非常感谢！

Answer 1

如果您只想这样做一次，您可以手动拖动标题，但使用 VBA 您可以执行以下操作：

    With Sheets("YourSheet").PivotTables("YourPivotTable").PivotFields("Quote Type")
        .PivotItems("TYPE 1").Position = 1
        .PivotItems("TYPE 2").Position = 2
        .PivotItems("TYPE 3").Position = 3
    End With

不要忘记将 YourSheet 替换为您的数据透视表的工作表名称，并将 YourPivotTable 替换为您的数据透视表的名称！

注意：如果其中一种类型不在数据透视表中，则会出现错误。如果您愿意，可以在它之前添加 On Error Resume Next 或为其制作自定义错误处理程序。如果您需要，请告诉我。