数据透视表 vba 列不显示

光影以北

数据透视表 vba，列和值都是工单状态，为什么这个代码只显示了值的，不显示列的呢。



Sub 将字段添加到数据透视表中()
Dim pvt As PivotTable
Set pvt = Worksheets("数据透视表").PivotTables(1)
With pvt
With .PivotFields("（资源）地市名称")
.Orientation = xlRowField
.Position = 1
End With
With .PivotFields("(资源)区县名称")
.Orientation = xlRowField
.Position = 2
End With
With .PivotFields("工单状态")
.Orientation = xlColumnField
.Position = 1
End With

.AddDataField .PivotFields("工单状态")
End With


End Sub


p.s如果把.AddDataField .PivotFields("工单状态") 这条删了，又能显示列了，但是没有值了

taller

光影以北

taller 发表于 2023-3-4 06:54

还是不行 感觉就是只能引用一次，列和值同时就不行

taller

光影以北 发表于 2023-3-4 08:43
还是不行 感觉就是只能引用一次，列和值同时就不行

手工操作可以实现的透视表，代码就也可以