您好，我想使用VBA在数据透视表中进行计数

Sub CountInPivotTable()
    Dim pt As PivotTable
    Dim ptField As PivotField
    Dim ptItem As PivotItem
    Dim count As Long
    
    ' 获取数据透视表对象
    Set pt = ActiveSheet.PivotTables("PivotTable1")
    
    ' 获取需要计数的字段
    Set ptField = pt.PivotFields("字段名")
    
    ' 清除之前的计数结果
    ptField.ClearAllFilters
    
    ' 遍历字段中的每个项，进行计数
    For Each ptItem In ptField.PivotItems
        ' 设置筛选条件，只显示当前项
        ptField.ClearAllFilters
        ptField.CurrentPage = ptItem.Name
        
        ' 计数
        count = pt.DataBodyRange.Rows.Count
        
        ' 在数据透视表中显示计数结果
        ptItem.Caption = ptItem.Name & " (" & count & ")"
    Next ptItem
End Sub