嘿，我完全懂这种不想重复干活的心情——谁愿意每次复制透视表都手动改数据源啊！针对你说的让透视表动态关联活动工作表的需求，我给你两个实用的办法，一个无代码用公式，一个用VBA一键搞定，看你哪个顺手：

这个方法靠Excel自带的函数实现数据源的动态关联，步骤很清晰：

• 第一步：定义动态数据源名称
  1. 点击Excel顶部的「公式」选项卡，选择「定义名称」
  2. 在弹出的窗口里，给这个名称起个好记的（比如DynamicPivotData），然后在「引用位置」里粘贴下面的公式：

     =OFFSET(INDIRECT(CELL("filename",A1)&"!"&"A1"),0,0,COUNTA(INDIRECT(CELL("filename",A1)&"!"&"A:A")),COUNTA(INDIRECT(CELL("filename",A1)&"!"&"1:1")))
     

     这个公式的核心是CELL("filename",A1)会抓取当前活动工作表的完整路径+表名，再结合OFFSET和COUNTA自动识别该表所有有数据的行和列，实现数据源的动态扩展。
• 第二步：修改透视表的数据源
  1. 选中你的透视表，点击「分析」（旧版Excel是「选项」）选项卡，选择「更改数据源」
  2. 在数据源输入框里直接输入刚才定义的名称DynamicPivotData，点击确定就完成了！
     以后不管你切换到哪个结构一致的工作表，只要刷新透视表，它就会自动读取当前活动表的数据。

如果觉得公式有点绕，写个小宏一键搞定更爽：

• 按Alt + F11打开VBA编辑器，右键左侧的工程窗口，选择「插入」→「模块」
• 把下面的代码粘贴进去，根据你的实际情况修改注释里的内容：

  Sub UpdatePivotToActiveSheet()
      Dim targetPivot As PivotTable
      Dim activeWs As Worksheet
      Set activeWs = ActiveSheet
      
      ' 这里改成你的透视表所在的工作表名称，比如"透视表汇总"
      Set targetPivot = ThisWorkbook.Sheets("Sheet1").PivotTables(1)
      
      ' 把透视表数据源切换为当前活动表的已使用区域
      targetPivot.ChangePivotCache ThisWorkbook.PivotCaches.Create( _
          SourceType:=xlDatabase, _
          SourceData:=activeWs.UsedRange)
      
      ' 刷新透视表
      targetPivot.RefreshTable
      MsgBox "搞定！透视表已更新到当前工作表：" & activeWs.Name, vbInformation
  End Sub
  

• 保存文件为「启用宏的工作簿（.xlsm）」，以后只要切换到目标工作表，按Alt + F8运行这个宏，透视表就自动关联当前活动表了！

小提醒 #

• 用公式的话，要确保所有需要关联的工作表数据源结构完全一致（列标题相同、数据区域连续），不然透视表会报错。
• VBA版本里，你还可以修改代码让它自动识别当前选中的透视表，或者批量更新多个透视表，按需调整就行。

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