如何使用VBA选择多个数据透视表项

Question

我正在尝试在Excel中创建一个宏，它将根据列表中显示的内容更改多个过滤器。我使用VBA代码成功实现了一个透视项：

ActiveSheet.PivotTables("1stAppPVT").PivotFields("Readable Subcategory"). _ EnableMultiplePageItems = False ActiveSheet.PivotTables("1stAppPVT").PivotFields("Readable Subcategory"). _ CurrentPage = Range("$G$2").Text

当我尝试使用代码调整代码以选择多个透视项目时：

ActiveSheet.PivotTables("1stAppfuncPVT").PivotFields("Readable Application"). _
    EnableMultiplePageItems = True
With ActiveSheet.PivotTables("1stAppfuncPVT").PivotFields( _
    "Readable Application")
    .CurrentPage = Range("$J$2").Text
    .CurrentPage = Range("$J$3").Text
    .CurrentPage = Range("$J$4").Text
    .CurrentPage = Range("$J$5").Text
    .CurrentPage = Range("$J$6").Text
End With

它仅保留最终单元格的选择（J6）。我是否可以对此代码进行修改，或者我可以尝试根据无枢轴项目或不同表格中的多个枢轴项目选择多个透视项目来进行修改？