Excel VBA按单元格值筛选数据透视表子过程失效问题咨询

以下是这段代码无法正常运行的常见原因：

• 触发范围逻辑问题：代码设置的触发区间是Range("C2:C3")，如果只有C2是目标输入单元格，修改其他单元格不会触发逻辑；另外如果修改时是多选区域刚好覆盖C2，Target.Text会返回Null导致赋值失败，建议增加If Target.Count > 1 Then Exit Sub判断排除多选场景。
• 对象名称不匹配：
  • 确认Sheet1中的透视表名称确实是PivotTable2，可在「透视表分析」选项卡最左侧查看官方标注的透视表名称，大小写、多余空格都会导致对象获取失败
  • 确认透视表字段中确实存在名为category的字段，字段名需要和数据源表头完全一致，不能有隐藏空格
• 字段属性不兼容：CurrentPage属性仅适用于放在筛选器区域的透视表字段，如果category字段放在行区域、列区域或者值区域，该属性会直接失效，需要改用VisibleItemsList属性实现筛选。
• 错误掩盖问题：On Error Resume Next会屏蔽所有报错，建议先注释掉这行代码，运行后查看具体报错位置就能快速定位问题。
• 值匹配失败：如果C2输入的值在category字段的可选值中不存在，赋值CurrentPage时会直接报错，建议增加一层值存在性判断逻辑。

优化后可用代码参考 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xPTable As PivotTable
    Dim xPFile As PivotField
    Dim xStr As String
    ' 多选场景直接退出
    If Target.Count > 1 Then Exit Sub
    ' 仅响应C2单元格的修改操作
    If Intersect(Target, Range("C2")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    On Error GoTo ErrHandle
    ' 同一工作表直接用Me指代，无需硬编码工作表名
    Set xPTable = Me.PivotTables("PivotTable2")
    Set xPFile = xPTable.PivotFields("category")
    ' 用Value取值比Text更稳定，避免单元格格式干扰取值结果
    xStr = Target.Value
    xPFile.ClearAllFilters
    ' 兼容不同位置的字段筛选
    If xPFile.Orientation = xlPageField Then
        xPFile.CurrentPage = xStr
    Else
        xPFile.VisibleItemsList = Array(xStr)
    End If
ErrHandle:
    Application.ScreenUpdating = True
    If Err.Number <> 0 Then
        MsgBox "筛选失败，请确认C2输入的值存在于分类列表中：" & Err.Description
    End If
End Sub

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