如何将数据透视表过滤器链接到Excel中的某个单元格？

网友投稿 549 2024-01-04

如何将数据透视表过滤器链接到Excel中的某个单元格？

如果要将数据透视表筛选器链接到某个单元格，并根据该单元格值对数据透视表进行筛选，则本文中的方法可以为您提供帮助。

使用VBA代码将数据透视表过滤器链接到特定单元格

您要将其筛选功能链接到数据透视表的数据透视表应包含一个筛选字段（筛选字段的名称在以下VBA代码中起着重要作用）。

以下面的数据透视表为例，数据透视表中的过滤器字段称为 产品分类，其中包括两个值“开支“和”销售”。将数据透视表筛选器链接到一个单元格后，将应用于筛选数据透视表的单元格值应为“费用”和“销售”。

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")) 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

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

2）“数据透视表2”是数据透视表的名称，您会将其过滤功能链接到单元格。

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

4）引用的单元格为H6。您可以根据需要更改这些变量值。

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

现在，数据透视表的筛选功能已链接到单元格H6。

刷新单元格H6，然后根据现有值筛选出数据透视表中的相应数据。看截图：

更改单元格值时，数据透视表中的筛选数据将自动更改。看截图：

根据certian列中的单元格值轻松选择整个行：

选择特定的单元格 实用程序 Kutools for Excel

可以帮助您根据Excel中的certian列中的单元格值快速选择整个行，如下图所示。根据单元格值选择所有行后，可以根据需要在Excel中手动将其移动或复制到新位置。

立即下载并试用！ (30-天免费试用）

相关文章：如何在Excel中将多个工作表合并到数据透视表中？如何在Excel中从文本文件创建数据透视表？如何基于Excel中的特定单元格值筛选数据透视表？

最佳办公生产力工具

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

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