如何使用vba从excel数据透视筛选器中选择最后三个选项，我添加了快照

Sub SelectLastThreeItems()
    Dim pt As PivotTable
    Dim pf As PivotField
    Dim pi As PivotItem
    Dim itemCount As Integer
    
    ' 设置数据透视表对象
    Set pt = ActiveSheet.PivotTables(1)
    
    ' 设置筛选器字段对象
    Set pf = pt.PivotFields("筛选器字段名称")
    
    ' 清除所有筛选项的选择
    pf.ClearAllFilters
    
    ' 获取筛选项的总数
    itemCount = pf.PivotItems.Count
    
    ' 选择最后三个选项
    For i = itemCount To itemCount - 2 Step -1
        Set pi = pf.PivotItems(i)
        pi.Visible = True
    Next i
End Sub