Sub ピボットの空白項目を外す() With ActiveSheet.PivotTables("pivo名").PivotFields("項目名") .PivotItems("(blank)").Visible = False End With End Sub