在这里我们需要借助VBA以及工作表事件来完成这个操作。
第一步：创建辅助用透视表
Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)Dim slc As SlicerCacheSet slc = ActiveWorkbook.SlicerCaches("切片器_类别")For Each slcItem In slc.SlicerItemsIf slcItem.Selected = True ThenDim pvt As PivotTable, pvtField As PivotFieldSet pvt = Sheet1.PivotTables("数据透视表1")For Each pvtField In pvt.DataFieldspvtField.Orientation = xlHiddenNextpvt.AddDataField pvt.PivotFields(slcItem.Caption), slcItem.Caption & " ", xlSumEnd IfNextEnd Sub
好了，本期教程就到这里啦，走过路过的点个关注分享一下吧，谢谢啦
