Sub ピボットテーブルのフィルター_数字を絞り込む()
    
    With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("売上")
        .ClearAllFilters
        .PivotFilters.Add xlCaptionIsGreaterThanOrEqualTo, , 444
                         '↑を↓へ変更すれば各種指定が可能
                         'xlCaptionIsGreaterThanOrEqualTo    指定値以上
                         'xlCaptionIsLessThanOrEqualTo       指定値以下
                         'xlCaptionIsGreaterThan             指定値より大きい
                         'xlCaptionIsLessThan                指定値より小さい
                            
                         'xlCaptionIsBetween         指定値の範囲内
                         'xlCaptionIsNotBetween      指定値の範囲外
    End With
    
End Sub