用了VBA代码，透视表没有更新

平帆

紫色行是数据透视表使用VBA代码后新添的，可是数据透视表并没有更新数据，总计还是22581.89，是代码错了还有我操作有误？
附VBA代码：
Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("数据透视表"). PivotCache.Refresh
End Sub

whsfhwm

数据源区域选取不变，VBA代码刷新数据只是针对现有数据源区域的数据更新，也就是说数据源区域依然是不包括新添的那一行。
（列表、定义动态名称等方式可以使得数据透视表的数据源区域动态）

alzeng

1. 
   
2. Private Sub Worksheet_Activate()
   
3.     On Error Resume Next
   
4.     ActiveWorkbook.Names("Data01").Delete
   
5.     Sheets("数据源").[A1].CurrentRegion.Name = "Data01"
   
6. 
   
7.     With ActiveSheet.PivotTables("数据透视表")
   
8.         .SourceData = "Data01"
   
9.         .PivotCache.Refresh
   
10.     End With
    
11. End Sub
    

复制代码

平帆

学习了，谢谢两位的解答！