excel表中的数据有变动，多个数据透视表中的数据自动刷新VBA实现

可以使用以下VBA代码实现多个数据透视表的自动刷新：

Sub RefreshAllPivotTables()
    Dim pt As PivotTable
    For Each pt In ActiveWorkbook.PivotTables
        pt.RefreshTable
    Next pt
End Sub

这段代码会遍历当前工作簿中的所有数据透视表，并对它们进行刷新。您可以将此代码添加到一个自动化事件中，例如文件打开或保存时自动刷新。例如，您可以将以下代码添加到工作簿的“Workbook_Open”事件中：

Private Sub Workbook_Open()
    RefreshAllPivotTables
End Sub

这样，每次打开工作簿时，所有数据透视表都会自动刷新。