基于单元格值动态筛选数据透视表的VBA报错求助

问题背景 #

固定年份值时，数据透视表筛选代码运行正常：

Sub Macro1()
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Year")
        .PivotItems("2003").Visible = True
        .PivotItems("2004").Visible = True
        .PivotItems("2002").Visible = False
     End With
End Sub

但改用单元格F1的值动态筛选时，出现报错：Run-time error '1004': Unable to get the PivotItems property of the PivotField class，修改后的代码及尝试过的字符串拼接写法均无效：

Sub Macro1()
Year1 = ActiveSheet.Range("F1").Value
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Year")
        .PivotItems(Year1).Visible = True
        .PivotItems("2004").Visible = True
        .PivotItems("2002").Visible = False
     End With
End Sub

Sub Macro1()
Year1 = ActiveSheet.Range("F1").Value
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Year")
        .PivotItems(""""&Year1"""").Visible = True
        .PivotItems("2004").Visible = True
        .PivotItems("2002").Visible = False
     End With
End Sub

要求解决方案不能使用ClearAllFilters，避免数据透视表重叠。

报错原因 #

单元格F1中的年份是数值类型，而透视表PivotItems的索引要求是字符串类型，类型不匹配导致无法找到对应的透视表项，触发1004错误。

解决方案 #

将单元格值转为字符串类型，同时添加可选的错误处理确保代码稳定性：

Sub Macro1()
    Dim Year1 As String
    ' 把单元格数值转为字符串，匹配透视表项的类型
    Year1 = CStr(ActiveSheet.Range("F1").Value)
    
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Year")
        ' 可选：添加错误处理，避免单元格值对应的年份不存在时报错
        On Error Resume Next
        .PivotItems(Year1).Visible = True
        If Err.Number <> 0 Then
            MsgBox "透视表中不存在年份: " & Year1, vbExclamation
            Err.Clear
        End If
        On Error GoTo 0
        
        ' 保留原有其他年份的可见性设置
        .PivotItems("2004").Visible = True
        .PivotItems("2002").Visible = False
    End With
End Sub

关键说明 #

• 使用CStr()函数将单元格的数值转换为字符串，与透视表中Year字段的项名称类型保持一致，解决类型不匹配问题
• 新增的错误处理逻辑可以在单元格值对应的年份不在透视表项中时给出提示，避免程序崩溃
• 完全保留了原有可见性设置逻辑，未使用ClearAllFilters，不会导致数据透视表重叠

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