Excel VBA将值粘贴到透视过滤器中

Question

我正在尝试获取单元格值并使用它来过滤数据透视表。我试图记录一个这样做的宏，但它似乎将值存储在代码中而不是使用变量（如单元格G1）。关于如何传递单元格值代替“cmi”值的任何想法？

    Range("G1").Select
    Selection.Copy
    Sheets("Sheet4").Select
    ActiveSheet.PivotTables("PivotTable1").PivotFields("field").ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("field").CurrentPage = "cmi"

Answer 1

删除.ClearAllFilters。

行