Page 1689 - Excel 高效办公应用与技巧大全

With pvt

With .PivotFields("所在省份（自治区/直辖市）")

.Orientation = xlPageField

End With

With .PivotFields("所在城市")

.Orientation = xlRowField

.Position = 1

End With

With .PivotFields("产品名称")

.Orientation = xlRowField

.Position = 2

End With

.AddDataField .PivotFields("数量")

.AddDataField .PivotFields("销售额")

End With

End

sub