Pivot ориентация одного в несколько колонок

Question

This is the layout I want:   but this is what currently I get:

из этого кода:

Private Sub KPIDashboardTable() 
Sheets("KPI Dashboard List").Activate 
Dim objTable As PivotTable, objField As PivotField, Ws As Worksheet 
ActiveWorkbook.Sheets("KPI Dashboard List").Range("A1").Select 

Set Ws = Sheets.Add 
Ws.Name = "KPI Dashboard List Table" 

Set objTable = Sheets("KPI Dashboard List").PivotTableWizard(TableDestination:=Ws.Cells(3, "A")) 
objTable.PivotCache.MissingItemsLimit = xlmissingItemNone 
objTable.PivotCache.Refresh 

Set objField = objTable.PivotFields("DATE OPENED") 
objField.Orientation = xlRowField 

Set objField = objTable.PivotFields("KPI") 
objField.Orientation = xlDataField 
objField.Function = xlSum 
objField.Position = 1 

Set objField = objTable.PivotFields("KPI") 
objField.Orientation = xlDataField 

Dim pf As PivotField 
Set pf = ActiveSheet.PivotTables(1).PivotFields("DATE OPENED") 
pf.DataRange.Cells(1).Group Start:=True, End:=True, Periods:=Array(False, False, _ 
False, False, True, False, False) 

Range("B2").Value = "KPI Dashboard" 
Range("A2:O2").Font.Bold = True 
Range("A2:O2").Interior.Color = vbYellow 

End Sub 

Как я могу изменить ориентацию сводной таблицы?

Answer 1

Вам нужно добавить:

With objTable.DataPivotField 
     .Orientation = xlColumnField 
     .Position = 1 
    End With