Private Sub Worksheet_Activate()
Dim pvt As PivotTable
Set pvt = ActiveSheet.PivotTables("数据透视表2")
pvt.AllowMultipleFilters = True
With pvt.PivotFields(1)
.ClearAllFilters
.PivotFilters.Add Type:=xlValueEquals, DataField:=ActiveSheet.PivotTables("数据透视表2").PivotFields(1), Value1:="张三"
End With
End Sub