📜  如何删除Excel中的数据透视表?

📅  最后修改于: 2021-09-23 04:56:37             🧑  作者: Mango

数据透视表是 Excel 中的一种工具,可让您快速汇总电子表格中的数据。在删除数据透视表时,有几种不同的方法可以执行此操作。

您选择的方法将取决于您想要如何删除数据透视表。

1.删除数据透视表和结果数据。

删除数据透视表和结果数据的步骤-

  • 选择数据透视表中的任何单元格
  • 选择“分析”选项卡。

  • 单击操作组中的“选择”选项。

  • 选择整个数据透视表

  • 删除键。

2.删除数据透视表但保留结果数据。

如果我们想删除整个数据透视表但保留结果数据,过程大致相同

删除数据透视表但保留结果数据的步骤:

  • 选择数据透视表中的任何单元格
  • 选择功能区中的“分析”选项卡。

  • 在操作组中,选择“选择”选项。

  • 选择整个数据透视表。

  • 右键单击所选数据透视表的任何单元格。
  • 单击复制。这将复制整个数据透视表的数据。

  • 单击主页选项卡。单击粘贴选项。在粘贴值部分,单击第一个图标。

上述步骤将删除数据透视表但仍保留结果数据。

3.删除结果数据但保留数据透视表。

以下是保留数据透视表并仅删除结果数据的步骤:

  • 选择数据透视表中的任何单元格
  • 选择功能区中的“分析”选项卡。

  • 在操作组中选择“清除”选项。选择“全部清除”选项。

4. 一次性删除所有数据透视表。

我们已经学习了在 Excel 中删除或删除数据透视表的简单方法。但是删除工作簿中的许多数据透视表并不是那么容易。所以我们需要VBA代码一次性删除数据透视表

下面是VBA代码:

Sub DeleteAllPivotTables()
Dim Ws As Worksheet, Pt As PivotTable
On Error Resume Next
For Each Ws In ActiveWorkbook.Worksheets
    For Each Pt In Ws.PivotTables
        Ws.Range(Pt.TableRange2.Address).Delete Shift:=xlUp
    Next Pt
Next Ws
End Sub

这段代码需要放在VB编辑器的常规模块中

以下是将此代码放入模块的步骤:

  • 打开 Excel 工作表。
  • 使用快捷键 ALT + F11(它将打开 VBA 编辑器窗口)。
  • 在这个 VBA 编辑器窗口的左侧,有一个项目资源管理器。右键单击工作表中您希望此代码起作用的任何对象。

  • 将光标悬停在插入上。单击模块。这将为当前工作表插入一个新模块。

  • 在模块窗口中,编写 VBA 代码,因为代码将运行,它将删除所有数据透视表。

要记住的事情

  • 我们也可以删除 Excel 数据透视表和数据透视表。
  • 一旦使用 VBA 代码删除 Excel 数据透视表,我们将无法撤消该操作,因此拥有备份副本是安全的。
  • 删除 Excel 数据透视表后,数据库中的任何更改都不会反映在删除的字段上。