我完全懂你现在的困扰——手动遍历数据透视表的PivotItem时，因为透视表设置了筛选条件，循环会包含那些已经被筛选排除、不在透视表显示列表里的条目，直接调用这些Item（比如.PivotItems("EHFG")）就会触发运行时错误，而存在的条目（比如.PivotItems("BMR")）却能正常运行。

给你两个实用的解决思路：

1. 只遍历可见的PivotItem #

如果你的需求只是处理透视表中实际显示的条目，直接通过Visible属性过滤掉被隐藏的Item即可，这是最高效的方式：

Dim targetPT As PivotTable
Dim targetField As PivotField
Dim visibleItem As PivotItem

'替换成你的透视表名称和目标字段名称
Set targetPT = ActiveSheet.PivotTables("SalesPivot")
Set targetField = targetPT.PivotFields("ProductCategory")

'遍历字段下所有可见的PivotItem
For Each visibleItem In targetField.PivotItems
    If visibleItem.Visible Then
        '这里写入你要执行的操作，比如获取名称、值等
        Debug.Print "可见条目: " & visibleItem.Name
    End If
Next visibleItem

2. 遍历所有Item但捕获错误 #

如果你必须遍历所有PivotItem（包括被筛选隐藏的），可以用错误捕获机制跳过无法访问的条目：

Dim targetPT As PivotTable
Dim targetField As PivotField
Dim pivotItem As PivotItem

Set targetPT = ActiveSheet.PivotTables("SalesPivot")
Set targetField = targetPT.PivotFields("ProductCategory")

For Each pivotItem In targetField.PivotItems
    On Error Resume Next '临时开启错误忽略
    '尝试执行你的操作，比如访问Item的属性
    Debug.Print pivotItem.Name & " 的值: " & pivotItem.Value
    
    '检查是否触发错误
    If Err.Number <> 0 Then
        Debug.Print pivotItem.Name & " 已被筛选排除，无法访问"
        Err.Clear '清除错误状态
    End If
    On Error GoTo 0 '恢复正常错误处理
Next pivotItem

补充说明 #

当PivotItem被筛选排除后，它的部分属性和方法会处于不可用状态，这就是直接调用时报错的原因。上面两种方法分别对应“只处理可见项”和“处理所有项但容错”的场景，你可以根据自己的需求选择。

内容的提问来源于stack exchange，提问作者Brad