VBA透视表按月期间筛选

Sub FilterByMonth()
    Dim pt As PivotTable
    Dim pf As PivotField
    Dim pi As PivotItem
    Dim startDate As Date
    Dim endDate As Date
    
    ' 设置开始日期和结束日期
    startDate = DateSerial(2022, 1, 1)
    endDate = DateSerial(2022, 12, 31)
    
    ' 设置透视表和透视字段
    Set pt = Worksheets("Sheet1").PivotTables("PivotTable1")
    Set pf = pt.PivotFields("日期")
    
    ' 清除所有筛选项
    pf.ClearAllFilters
    
    ' 筛选所需的日期范围
    For Each pi In pf.PivotItems
        If pi.Value >= startDate And pi.Value <= endDate Then
            pi.Visible = True
        Else
            pi.Visible = False
        End If
    Next pi
End Sub