将一个数据透视表的行字段筛选器设置为另一个数据透视表的行字段筛选器

Question

如何将行字段的过滤器从一个枢轴设置为另一个？

即。数据透视表1的字段[名称]为行（但不是过滤器），但我可以过滤行，因此它设置为全部。数据透视表2以相同的方式设置，但其行过滤器设置为＆＃34; John＆＃34; ＆安培; ＆＃34;哈利＆＃34 ;.单击按钮，如何将PivotTable1的行过滤器设置为数据透视表2？

这是我到目前为止所拥有的：

Dim pfNameNew As PivotField
Dim pfNameOld As PivotField

Set pfNameOld = ActiveSheet.PivotTables("PivotTable1").PivotFields("Name")
Set pfNameNew = ActiveSheet.PivotTables("PivotTable2").PivotFields("Name")

pfNameOld.ClearAllFilters
pfNameOld.CurrentPageList = pfNameNew.CurrentPageList

截图