如何用VBA代码实现跨工作表数据透视表自动更新？

你当前的代码失效主要是两个问题：

• 代码放错了位置：必须把Worksheet_Change事件代码写在存数据表格的那个工作表的代码模块里，不能写在透视表所在的表或者其他通用模块。
• 透视表名称拼写错误：你代码里的Pivottabel1拼错了字母，正确写法应为PivotTable1（少了一个e）。

修正后的解决方案 #

步骤1：把代码放到正确位置 #

1. 按下Alt + F11打开VBA编辑器。
2. 在左侧「工程资源管理器」里找到数据表格所在的工作表（比如名为数据源的表），双击它打开代码窗口。
3. 粘贴以下修正后的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim dataRange As Range
    Dim pivotSheet As Worksheet
    Dim pivotTable As PivotTable
    
    ' 定义数据表格的实际范围（根据你的数据修改，比如A1:D1000）
    Set dataRange = Me.Range("A1:D1000")
    ' 指定透视表所在的工作表（替换成你的透视表工作表名称）
    Set pivotSheet = ThisWorkbook.Worksheets("Sheet1")
    
    ' 只在修改的单元格属于数据范围时刷新，避免无意义操作
    If Not Intersect(Target, dataRange) Is Nothing Then
        On Error Resume Next ' 防止透视表不存在导致报错
        Set pivotTable = pivotSheet.PivotTables("PivotTable1") ' 确保名称拼写正确
        If Err.Number = 0 Then
            pivotTable.PivotCache.Refresh
        Else
            MsgBox "未找到指定的数据透视表，请检查名称是否正确"
        End If
        On Error GoTo 0
    End If
End Sub

步骤2：根据实际情况调整参数 #

• 修改dataRange的值为你数据表格的真实区域：如果用的是Excel结构化表格（插入的「表格」），可以改成Set dataRange = Me.ListObjects("表1").Range，这样表格新增行时会自动识别范围，不用手动改数值。
• 把pivotSheet里的Sheet1替换成你透视表所在的工作表名称。
• 确认PivotTable1是你数据透视表的正确名称：选中透视表后，在顶部「透视表分析」选项卡能看到名称。

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