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

在打开的【模块】窗口中输入如下代码； 单击【关
闭】按钮关闭VBA编辑器，操作如右上图所示。

代码为：

Sub 对字段进行布局()

Dim pvt As PivotTable

Set pvt = Worksheets(“Sheet1”).PivotTables(1)