VBA Добавление Pivot поля из массива

Question

Я ищу способ добавить несколько полей в значениях бункера сводной таблицы (один ниже Колонка Этикетка). Код ниже добавляет мои поля к Знаки столбцов bin вместо этого. Я пробовал RowFields и AddToTable как указано here. Это то, что моя сводная таблица должна выглядеть (кроме как с намного большим количеством полей из массива PF):

, но это выглядит так:

Global PF() As String  
    Sub AddPF() 
    Dim LastCol As Integer: LastCol = ActiveSheet.UsedRange.Columns.Count 
      Dim rngData As Range 
      Dim rngDest As Range: Set rngDest = Sheets("PIVOT Lifestyles Rollup").Range("A1") 
      Erase PF 
      For i = 2 To LastCol 
       ReDim Preserve PF(0 To i - 2) 
       PF(i - 2) = Cells(2, i).Value 
      Next 
      ActiveSheet.Range("B2").Select 
      Range(Selection, Selection.End(xlDown)).Select 
      Set rngData = Range(Selection, Selection.End(xlToRight)) 
      ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ 
      rngData, Version:=xlPivotTableVersion14 _ 
        ).CreatePivotTable TableDestination:=rngDest, _ 
        TableName:="PivotTable1", DefaultVersion:=xlPivotTableVersion14 
      rngDest.Parent.Activate 
      ActiveSheet.PivotTables(1).AddFields ColumnFields:=PF 
    End Sub 

Answer 1

Вынуть в последней строке вашего кода, а затем щелкните запись макроса и добавьте поля вручную. Вы должны иметь возможность легко очищать записанный код, а затем добавлять его к тому, что у вас уже было. Надежда, что помогает

Answer 2

пример для добавления поля данных

With ActiveSheet.PivotTables(1) 
    With .PivotFields("Name of Pivot Field") 
     .Orientation = xlDataField 
     .Position = 1 
     .Caption = "Pivot Table Column Header" 
     .Function = xlSum 
     .NumberFormat = "Your desired number format" 
    End With 
End With 

Если вы хотите добавить больше полей значений, просто добавьте xlDataField и отрегулировать положение