Sub Makró2()
With ActiveSheet.PivotTables("Kimutatás1").PivotFields("a")
.PivotItems("asd").Visible = False
.PivotItems("hj").Visible = False
End With
End Sub
例如:
0 投票
尝试下面的代码行
With ActiveSheet.PivotTables("PivotTable Name").PivotFields("Column Name").Orientation = xlPageField.Position = 1