VBA'为每个'选定的项目
我想遍历PageField中的选定项目。 我可以使用下面的代码循环遍历每个数据项（在我的情况下，字母表字母）：
Dim PT As PivotTable Set PT = ActiveSheet.PivotTables(1) Dim Letter As PivotItem For Each Letter In PT.PivotFields("Alphabet").PivotItems 'Code for each letter of the alphabet Next Letter 但是，如果我只在PageField中select了几个不连续的dynamic字母（A，J，P，S，X），如何限制这些字母的循环？
像这样：
Dim PT As PivotTable Set PT = ActiveSheet.PivotTables(1) Dim Letter As PivotItem For Each Letter In PT.PivotFields("Alphabet").PivotItems if letter.visible then 'Code for each letter of the alphabet end if Next Letter