如何在 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 次檢視

開啟你的 職業生涯

透過完成課程獲得認證

開始學習
廣告