如何修改VBA代码，实现仅显示存在的指定数据透视表项？

这问题很好解决——我们只需要给每个要设置可见的国家代码加个存在性检查，避免因为项还没上线导致代码报错。下面是修改后的代码，逻辑更清晰也更健壮：

Application.ScreenUpdating = False

Dim targetCountries As Variant
Dim countryCode As Variant
Dim pivotField As PivotField

' 把需要设置可见的国家代码放到数组里，方便后续维护
targetCountries = Array("UA", "BY", "MD", "GE", "KG", "KZ", "MN", "AZ", "TM")

Set pivotField = ActiveSheet.PivotTables("MainTable").PivotFields("Country Code")

' 第一步：先统一隐藏所有透视表项
With pivotField
    For i = 1 To .PivotItems.Count
        .PivotItems(i).Visible = False
    Next i
    
    ' 第二步：遍历目标数组，仅对存在的项设置可见
    For Each countryCode In targetCountries
        On Error Resume Next ' 临时忽略找不到项的错误
        .PivotItems(countryCode).Visible = True
        On Error GoTo 0 ' 恢复正常错误捕获
    Next countryCode
    
    ' 单独处理DE的特殊需求：按原逻辑设为不可见
    On Error Resume Next
    .PivotItems("DE").Visible = False
    On Error GoTo 0
End With

Application.ScreenUpdating = True

关键改进说明： #

• 数组化管理目标项：以后要新增或修改需要显示的国家代码，直接修改targetCountries数组即可，不用重复编写大量.PivotItems代码，维护效率更高。
• 错误处理规避不存在项：用On Error Resume Next临时跳过找不到项的报错，执行后恢复错误捕获，确保代码在未上线的项面前也能正常运行，不会崩溃。
• 逻辑分层更合理：先统一隐藏所有项，再批量设置需要显示的项，最后单独处理DE的特殊需求，比原代码的执行顺序更符合逻辑。

如果你觉得错误处理的方式不够直观，也可以写一个辅助函数来明确检查项是否存在：

Function PivotItemExists(pField As PivotField, itemName As String) As Boolean
    Dim pItem As PivotItem
    On Error Resume Next
    Set pItem = pField.PivotItems(itemName)
    PivotItemExists = Not pItem Is Nothing
    On Error GoTo 0
End Function

然后把设置可见的部分替换成：

For Each countryCode In targetCountries
    If PivotItemExists(pivotField, countryCode) Then
        pivotField.PivotItems(countryCode).Visible = True
    End If
Next countryCode

这种写法更直白，适合喜欢明确判断逻辑的场景，两种方式都能完美解决你的问题，选哪种看个人习惯就好。

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