Excel中如何用单个切片器同步筛选两个不同数据集的透视表

不需要在原两个数据表间创建关系，以下三个方案均可绕过原表重复值的限制实现需求：

方案1：同数据模型下直接共享切片器缓存（零数据改动，优先选用） #

• 确认Table1、Table2中用于筛选的字段名称完全一致、数据类型完全匹配（例如筛选字段都叫「销售大区」，且均为文本格式，不能一个是文本、一个是数字格式的区域编码），若字段名或格式不统一先调整一致
• 基于Table1创建第一个数据透视表，插入对应筛选字段的切片器
• 选中刚插入的切片器，在顶部「切片器」选项卡中点击「报表连接」（部分版本显示为「数据透视表连接」）
• 在弹出的配置窗口中，直接勾选基于Table2创建的第二个数据透视表，点击确认即可。操作该切片器时两个透视表会同步响应筛选，不需要给两个原表创建关系。

方案2：独立维度桥接表（适配字段格式不统一的场景） #

如果两个原表的筛选字段存在格式、命名差异，没法直接用方案1，可以单独做一个无重复值的维度表做中转：

• 新建空白工作表，提取Table1、Table2中筛选字段的所有不重复值，整合成单列的维度表，列名统一设置为你需要的筛选字段名
• 将这个新建的维度表添加到数据模型，不需要和Table1、Table2建立任何关联关系
• 插入切片器时选择维度表中的筛选字段，同样在切片器的「报表连接」中勾选两个目标透视表即可实现同步筛选。

方案3：VBA事件同步（适配不启用数据模型的场景） #

如果文件不适合用数据模型，可以用宏触发同步：

• 给两个数据透视表分别插入同筛选维度的切片器，将需要操作的切片器放在界面可见区域，另一个切片器挪到隐藏列/工作表边角做隐藏处理
• 按Alt+F11打开VBA编辑器，在左侧工程列表中找到放置可见切片器的工作表，双击打开代码编辑区，粘贴对应代码：

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Dim scSource As SlicerCache, scTarget As SlicerCache
    ' 括号内替换为实际的切片器缓存名称，可在切片器选项卡的名称框查看
    Set scSource = ThisWorkbook.SlicerCaches("Slicer_销售大区")
    Set scTarget = ThisWorkbook.SlicerCaches("Slicer_销售大区1")
    ' 同步筛选选中状态
    scTarget.VisibleSlicerItemsList = scSource.VisibleSlicerItemsList
End Sub

• 将代码中的切片器缓存名称替换为你文件里的实际名称，保存为.xlsm启用宏格式的工作簿即可，操作可见切片器时宏会自动同步隐藏切片器的选中状态，带动第二个透视表更新。

优先选择方案1，操作成本最低且不会触发宏安全提醒；方案1无法生效时再根据实际场景选方案2或3。

内容的提问来源于stack exchange，提问作者Mike82