'ラベルを「文字で」フィルター With ActiveSheet.PivotTables(1) .PivotFields("商品").ClearAllFilters .PivotFields("商品").PivotFilters.Add2 xlCaptionEquals, , "いちご" End With '引数の一覧 '指定の値に等しい(xlCaptionEquals) '指定の値に等しくない(xlCaptionDoesNotEqual) '指定の値で始まる(xlCaptionBeginsWith) '指定の値で始まらない(xlCaptionDoesNotBeginWith) '指定の値で終わる(xlCaptionEndsWith) '指定の値で終わらない(xlCaptionDoesNotEndWith) '指定の値を含む(xlCaptionContains) '指定の値を含まない(xl