verwandeln Vertikale Informationen in horizontale

Question

Ich möchte diese Transformation haben, in vba

Und besser inderstend i shere mit Ihnen dieses Bild

Jetzt habe ich eine weitere Spalte und ich Haben Sie diese Informationen in der neuen Tabelle, aber ich finde nicht, um das zu machen?

Answer 1

Alles, was ich getan habe, war die Einrichtung Ihrer Beispieldaten und dann ein Makro aufzeichnen und gespeicherte Makro unten gespeichert.

Jetzt beachten Sie: Wenn Ihre Daten größer sind, dann möchten Sie vielleicht mit Tastenanschlägen den Cursor am Anfang der Tabelle und dann am Ende der Tabelle oder "Daten als Tabelle definieren" setzen und die Tabelle verwenden. .. aber das gibt Ihnen die allgemeine Idee.

Sub Macro1() 
' Macro1 Macro 

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ 
     "Sheet1!R1C1:R10C4", Version:=xlPivotTableVersion14).CreatePivotTable _ 
     TableDestination:="Sheet1!R13C1", TableName:="PivotTable1", DefaultVersion _ 
     :=xlPivotTableVersion14 
    Sheets("Sheet1").Select 
    Cells(13, 1).Select 
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Customer ") 
     .Orientation = xlRowField 
     .Position = 1 
    End With 
    ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables(_ 
     "PivotTable1").PivotFields("Group"), "Sum of Group", xlSum 
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Price") 
     .Orientation = xlColumnField 
     .Position = 1 
    End With 
    Columns("C:C").ColumnWidth = 5.71 
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Price").Subtotals = Array(_ 
     False, True, False, False, False, False, False, False, False, False, False, False) 
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Sum of Group") 
     .Orientation = xlColumnField 
     .Position = 2 
    End With 
    ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables(_ 
     "PivotTable1").PivotFields("Price"), "Sum of Price", xlSum 
    Range("E14").Select 
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Sum of Price").Caption = _ 
     "Prix" 
    Range("B18").Select 
    ActiveSheet.PivotTables("PivotTable1").RowGrand = False 
End Sub 

die dann in Ergebnisse:

die neue Spalte zu handhaben: ID kombinieren, um die Werte in den Rohdaten. Wenn Sie jedoch etwas anderes suchen, müsste ich ein Beispiel für die gewünschte Ausgabe sehen.