如何在 Excel 中删除一个或所有数据透视表

数据透视表是 Microsoft Excel 中一个有用的工具，可让您轻松分析和汇总大量数据。但是，有时您可能需要从工作表中删除数据透视表，以腾出空间或开始新的分析。在本教程中，我们将向您展示如何从 Excel 电子表格中删除单个数据透视表或所有数据透视表。

无论您是 Excel 新手还是经验丰富的用户，本文都将向您展示如何以简单明了的方式删除数据透视表。在本课程结束时，您将对从 Excel 工作表中删除数据透视表充满信心和了解。因此，让我们开始并弄清楚如何在 Excel 中删除数据透视表！

在 Excel 中删除所有数据透视表

在这里，我们将使用 VBA 应用程序来完成任务。因此，让我们来看一个简单的过程来学习如何在 Excel 中删除所有数据透视表。

步骤 1

考虑任何您有多个数据透视表的 Excel 工作表。

首先，右键单击工作表名称，然后选择“查看代码”以打开 VBA 应用程序。

右键单击 > 查看代码。

步骤 2

然后单击插入，选择模块，并将以下代码复制到文本框中。

插入 > 模块 > 复制。

示例

Sub DeleteAllPivotTablesInWorkbook()
Dim xWs As Worksheet
Dim xPT As PivotTable
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xPT In xWs.PivotTables
        xWs.Range(xPT.TableRange2.Address).Delete Shift:=xlUp
    Next
Next
End Sub

步骤 3

然后单击 F5 运行代码以完成任务。

注意：如果您只想删除一个数据透视表，请使用以下代码。

Sub DeletePivotTable()
    Dim pt As PivotTable
    
    Set pt = ThisWorkbook.Sheets("Sheet1").PivotTables("PivotTable1")
    
    pt.TableRange2.Clear ' Clear the data and formatting associated with the pivot table
    pt.PivotCache.Clear ' Clear the pivot cache
    pt.Delete ' Delete the pivot table object
End Sub

在代码中，Sheet1 和 PivotTable1 分别是工作表和数据透视表的名称。

结论

在本教程中，我们使用了一个简单的示例来演示如何删除 Excel 中的一个或所有数据透视表，以突出显示特定数据集。

更新于: 2023年7月20日

234 次查看

开启你的 职业生涯

通过完成课程获得认证

开始学习
广告