为两个子过程设置数据透视缓存：无法共用切片器的问题

问题根源 #

你现在的问题是两个数据透视表无法共用切片器，核心原因是每个子过程都单独创建了一个PivotCache实例。哪怕它们的数据源完全相同，Excel会把这些独立创建的缓存视为完全不同的数据容器，切片器只能绑定到同一个缓存下的透视表，所以自然无法联动。

正确实现方案 #

方案1：使用公共缓存变量 #

在模块的最顶部（所有子过程之外）声明公共的PivotCache变量，确保所有子过程复用同一个缓存实例：

' 模块顶部声明公共变量，所有子过程可访问
Public BuforTP As PivotCache

' 初始化缓存的通用子过程
Sub InitSharedPivotCache()
    ' 避免重复创建缓存
    If BuforTP Is Nothing Then
        Set BuforTP = ThisWorkbook.PivotCaches.Create( _
            SourceType:=xlDatabase, _
            SourceData:=Worksheets("Baza").Range("A1").CurrentRegion)
    End If
End Sub

' 创建第一个透视表
Sub CreateFirstPivot()
    Dim TP As PivotTable
    Dim Nr As Integer
    Dim K As Integer ' 假设你已定义K的值
    
    ' 先确保缓存已初始化
    Call InitSharedPivotCache
    
    Set TP = Worksheets("Arkusz techniczny").PivotTables.Add( _
        PivotCache:=BuforTP, _
        TableDestination:=Worksheets("Arkusz techniczny").Cells(1, K), _
        TableName:="TP" & Nr)
    ' 此处可添加透视表字段设置逻辑
End Sub

' 创建第二个透视表
Sub CreateSecondPivot()
    Dim TP As PivotTable
    Dim Nr As Integer
    Dim L As Integer ' 假设你已定义L的值
    
    ' 复用同一个公共缓存
    Call InitSharedPivotCache
    
    Set TP = Worksheets("Arkusz techniczny").PivotTables.Add( _
        PivotCache:=BuforTP, _
        TableDestination:=Worksheets("Arkusz techniczny").Cells(1, L + 3), _
        TableName:="TPR" & Nr)
    ' 此处可添加透视表字段设置逻辑
End Sub

方案2：复用缓存的工具函数 #

如果不想用公共变量，可编写一个函数自动检查并返回现有缓存，没有则新建：

' 获取或创建共享的透视缓存
Function GetSharedPivotCache() As PivotCache
    Dim sourceWs As Worksheet
    Dim sourceRng As Range
    Dim cache As PivotCache
    
    Set sourceWs = ThisWorkbook.Worksheets("Baza")
    Set sourceRng = sourceWs.Range("A1").CurrentRegion
    
    ' 遍历现有缓存，检查是否有匹配数据源的
    For Each cache In ThisWorkbook.PivotCaches
        On Error Resume Next ' 忽略数据源引用异常
        If cache.SourceData = sourceRng.Address(External:=True) Then
            Set GetSharedPivotCache = cache
            Exit Function
        End If
        On Error GoTo 0
    Next
    
    ' 无匹配缓存则新建
    Set GetSharedPivotCache = ThisWorkbook.PivotCaches.Create( _
        SourceType:=xlDatabase, _
        SourceData:=sourceRng)
End Function

' 创建第一个透视表
Sub CreateFirstPivot()
    Dim TP As PivotTable
    Dim Nr As Integer
    Dim K As Integer
    
    Set TP = Worksheets("Arkusz techniczny").PivotTables.Add( _
        PivotCache:=GetSharedPivotCache(), _
        TableDestination:=Worksheets("Arkusz techniczny").Cells(1, K), _
        TableName:="TP" & Nr)
End Sub

' 创建第二个透视表
Sub CreateSecondPivot()
    Dim TP As PivotTable
    Dim Nr As Integer
    Dim L As Integer
    
    Set TP = Worksheets("Arkusz techniczny").PivotTables.Add( _
        PivotCache:=GetSharedPivotCache(), _
        TableDestination:=Worksheets("Arkusz techniczny").Cells(1, L + 3), _
        TableName:="TPR" & Nr)
End Sub

核心原理 #

Excel的切片器是与**数据透视缓存（PivotCache）**绑定的，不是直接绑定到数据源单元格。只有当多个透视表共用同一个PivotCache实例时，它们才属于同一数据集，才能共享切片器实现联动。重复创建缓存会导致透视表分属不同数据容器，自然无法共用切片器。

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