如何基於Excel中的特定單元格值篩選數據透視表？

過濾資料透視表中的資料通常是透過從下拉式清單中選擇項目來完成的。但是，在某些情況下，您可能希望資料透視表根據特定儲存格中的值進行動態篩選。本教程提供了一個簡單的 VBA 解決方案來自動執行此流程，從而更輕鬆地有效管理和分析資料。

使用VBA代碼根據特定單元格值過濾數據透視表

使用VBA代碼根據特定單元格值過濾數據透視表

以下 VBA 程式碼可以協助您根據 Excel 中的特定儲存格值動態篩選資料透視表。請按以下步驟操作。

1.請輸入一個值，您將根據該值預先將數據透視表過濾到一個單元格中（這裡我選擇單元格H6）。

2.打開包含要根據單元格值過濾的數據透視表的工作表。 然後右鍵單擊工作表選項卡，然後從上下文菜單中選擇“查看代碼”。 看截圖：

3.在開幕 Microsoft Visual Basic for Applications 窗口，將下面的VBA代碼複製到“代碼”窗口中。

VBA代碼：根據單元格值過濾數據透視表

Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180702
    Dim xPTable As PivotTable
    Dim xPFile As PivotField
    Dim xStr As String
    On Error Resume Next
    If Intersect(Target, Range("H6:H7")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xPTable = Worksheets("Sheet1").PivotTables("PivotTable2")
    Set xPFile = xPTable.PivotFields("Category")
    xStr = Target.Text
    xPFile.ClearAllFilters
    xPFile.CurrentPage = xStr
    Application.ScreenUpdating = True
End Sub

筆記：在代碼中，

4。 按 其他 + Q 關閉鍵 Microsoft Visual Basic for Applications 窗口。

資料透視表現在將根據儲存格 H6 中的值動態過濾，如下面的螢幕截圖所示：

您可以更新儲存格值以根據需要套用不同的篩選器。

備註：您在單元格H6中鍵入的值應與數據透視表的“類別”下拉列表中的值完全匹配。

相關文章：

• 如何在Excel中將多個工作表合併到數據透視表中？
• 如何在Excel中從文本文件創建數據透視表？
• 如何將數據透視表過濾器鏈接到Excel中的某個單元格？