如何根據 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. 按 Alt + Q 鍵關閉 Microsoft Visual Basic for Applications 視窗。

現在，樞紐分析表將根據 H6 儲存格中的值進行動態篩選，如下方截圖所示：

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

注意：您在 H6 儲存格中輸入的值應與樞紐分析表的 Category 下拉列表中的值完全匹配。

相關文章：

• 如何在 Excel 中將多個工作表合併到一個樞紐分析表中？
• 如何在 Excel 中從文本文件創建樞紐分析表？
• 如何在 Excel 中將樞紐分析表篩選器連結到某個特定儲存格？