Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Redefines the layout of the fields in the existing Table, apart from the data field
Sub RedefinePivotTable()
         Dim pvt As PivotTable
         Set pvt = ActiveSheet.PivotTables(1)
         pvt.AddFields RowFields:=Array("Product", "Customer"), _
                      ColumnFields:="State", _
                      PageFields:="Date"
     End Sub