如何基于Excel中的特定单元格值筛选数据透视表？

网友投稿 415 2023-12-28

如何基于Excel中的特定单元格值筛选数据透视表？

通常，我们通过在下拉列表中选择项目来过滤数据透视表中的数据，如下面的屏幕截图所示。实际上，您可以根据特定单元格中的值过滤数据透视表。本文中的 VBA 方法将帮助您解决问题。

使用VBA代码根据特定单元格值过滤数据透视表

下面的VBA代码可以帮助您基于Excel中的特定单元格值过滤数据透视表。请执行以下操作。

1.请输入一个值，您将根据该值预先将数据透视表过滤到一个单元格中（这里我选择单元格H6）。

2.打开包含要根据单元格值过滤的数据透视表的工作表。然后右键单击工作表选项卡，然后从上下文菜单中选择“查看代码”。看截图：

3.在开幕 Microsoft Visual Basic应用程序 窗口，将下面的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

Copy

：在代码中，

1）“Sheet1”是工作表的名称。

2）“数据透视表2”是数据透视表的名称。

3）数据透视表中的过滤字段称为“产品分类".

4）您要过滤数据透视表的值放在单元格中 H6.

您可以根据需要更改上述变量值。

4。按其他 + Q 关闭键 Microsoft Visual Basic应用程序 窗口。

然后，数据透视表将根据单元格H6中的值进行过滤，如下图所示：

您可以根据需要将单元格值更改为其他值。

备注：您在单元格H6中键入的值应与数据透视表的“类别”下拉列表中的值完全匹配。

相关文章：如何在Excel中将多个工作表合并到数据透视表中？如何在Excel中从文本文件创建数据透视表？如何将数据透视表过滤器链接到Excel中的某个单元格？

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！