Sub ピボットテーブルのフィルター_単語で絞り込む()
    
    With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("商品名")
        .ClearAllFilters
        .PivotFilters.Add xlCaptionEquals, , "いい"
                         '↑を↓へ変更すれば各種指定が可能
                         'xlCaptionEquals            指定値に等しい
                         'xlCaptionDoesNotEqual      指定値に等しくない
                            
                         'xlCaptionBeginsWith        指定値で始まる
                         'xlCaptionDoesNotBeginWith  指定値で始まらない
                         'xlCaptionEndsWith          指定値で終わる
                         'xlCaptionDoesNotEndWith    指定値で終わらない
                          
                         'xlCaptionContains          指定値を含む
                         'xlCaptionDoesNotContain    指定値を含まない
    End With
    
End Sub