Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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