How to Convert Vertical List into Table

[Alex20850]

I have Before data where the fields go down the rows,
I want to change it into a table where each row is a different PC-Code and the columns are different fields for the PC.

Desired Format
[TABLE="width: 837"]
<colgroup><col><col><col><col><col><col></colgroup><tbody>[TR]
[TD]Item[/TD]
[TD]00. Model[/TD]
[TD]00. Price[/TD]
[TD]01. CPU[/TD]
[TD]02. Cores[/TD]
[TD]03. TIM[/TD]
[/TR]
[TR]
[TD]BHP-01[/TD]
[TD]Acer 15.6" Aspire 5 Series Laptop[/TD]
[TD]$579.00[/TD]
[TD]1.6[/TD]
[TD]4[/TD]
[TD]8[/TD]
[/TR]
[TR]
[TD]BHP-02[/TD]
[TD]Acer 17.3" Predator Helios 300[/TD]
[TD]$1,099.00[/TD]
[TD]2.2[/TD]
[TD]2[/TD]
[TD]16[/TD]
[/TR]
[TR]
[TD]BHP-04[/TD]
[TD]ASUS 13.3" ZenBook 13 UX331FAL[/TD]
[TD]$829.00[/TD]
[TD]1.8[/TD]
[TD]4[/TD]
[TD]8[/TD]
[/TR]
</tbody>[/TABLE]

Original Format
[TABLE="width: 651"]
<colgroup><col><col><col></colgroup><tbody>[TR]
[TD]PC Code[/TD]
[TD]Fields[/TD]
[TD]Values[/TD]
[/TR]
[TR]
[TD]BHP-01[/TD]
[TD]00. Model[/TD]
[TD]Acer 15.6" Aspire 5 Series Laptop[/TD]
[/TR]
[TR]
[TD]BHP-01[/TD]
[TD]00. Price[/TD]
[TD]$579.00[/TD]
[/TR]
[TR]
[TD]BHP-01[/TD]
[TD]01. CPU[/TD]
[TD]1.6[/TD]
[/TR]
[TR]
[TD]BHP-01[/TD]
[TD]02. Cores[/TD]
[TD]4[/TD]
[/TR]
[TR]
[TD]BHP-01[/TD]
[TD]03. TIM[/TD]
[TD]8[/TD]
[/TR]
[TR]
[TD]BHP-01[/TD]
[TD]04. GPU[/TD]
[TD]2[/TD]
[/TR]
[TR]
[TD]BHP-01[/TD]
[TD]05. Screen Size[/TD]
[TD]15.6[/TD]
[/TR]
[TR]
[TD]BHP-01[/TD]
[TD]06. Screen Res[/TD]
[TD]1920x1080[/TD]
[/TR]
[TR]
[TD]BHP-01[/TD]
[TD]07. Disk Size[/TD]
[TD]256[/TD]
[/TR]
[TR]
[TD]BHP-01[/TD]
[TD]08. Disk Type[/TD]
[TD]SSD[/TD]
[/TR]
[TR]
[TD]BHP-01[/TD]
[TD]09. Pounds[/TD]
[TD]4.41[/TD]
[/TR]
</tbody>[/TABLE]
[TABLE="width: 651"]
<colgroup><col><col><col></colgroup><tbody>[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[lrobbo314]

Two possible solutions.

Power Query:

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"PC Code", type text}, {"Fields", type text}, {"Values", type any}}),
    #"Grouped Rows" = Table.Group(#"Changed Type", {"PC Code"}, {{"Count", each _, type table}}),
    #"Added Custom" = Table.AddColumn(#"Grouped Rows", "Custom", each Table.Column([Count],"Values")),
    #"Extracted Values" = Table.TransformColumns(#"Added Custom", {"Custom", each Text.Combine(List.Transform(_, Text.From), ":"), type text}),
    #"Added Custom1" = Table.AddColumn(#"Extracted Values", "Custom.1", each Table.Column([Count],"Fields")),
    #"Reordered Columns" = Table.ReorderColumns(#"Added Custom1",{"PC Code", "Count", "Custom.1", "Custom"}),
    #"Removed Columns" = Table.RemoveColumns(#"Reordered Columns",{"Count", "Custom.1"}),
    #"Split Column by Delimiter" = Table.SplitColumn(#"Removed Columns", "Custom", Splitter.SplitTextByDelimiter(":", QuoteStyle.None), {"Custom.1", "Custom.2", "Custom.3", "Custom.4", "Custom.5", "Custom.6", "Custom.7", "Custom.8", "Custom.9", "Custom.10", "Custom.11"}),
    #"Changed Type1" = Table.TransformColumnTypes(#"Split Column by Delimiter",{{"Custom.1", type text}, {"Custom.2", type text}}),
    #"Renamed Columns" = Table.RenameColumns(#"Changed Type1",{{"Custom.1", "Model"}, {"Custom.2", "Price"}}),
    #"Changed Type2" = Table.TransformColumnTypes(#"Renamed Columns",{{"Price", Currency.Type}}),
    #"Renamed Columns1" = Table.RenameColumns(#"Changed Type2",{{"Custom.3", "CPU"}, {"Custom.4", "Cores"}, {"Custom.5", "TIM"}, {"Custom.6", "GPU"}, {"Custom.7", "Screen Size"}, {"Custom.8", "Screen Res"}, {"Custom.9", "Disk Size"}, {"Custom.10", "Disk Type"}, {"Custom.11", "Pounds"}})
in
    #"Renamed Columns1"

or VBA:

Subroutine

Sub Main()
Dim AR() As Variant: AR = Sheets("Sheet2").Range("A2:C" & Range("A" & Rows.Count).End(xlUp).Row).value
Dim Obs As Object: Set Obs = CreateObject("System.Collections.ArrayList")
Dim Cols As Object: Set Cols = CreateObject("System.Collections.ArrayList")
Dim Code As String
Dim PC As New PC


Cols.Add "PC Code"


For i = LBound(AR) To UBound(AR)
    If Not Cols.contains(AR(i, 2)) Then Cols.Add AR(i, 2)
    If AR(i, 1) = Code Then
        Code = AR(i, 1)
    Else
        If Code <> vbNullString Then Obs.Add PC
        Code = AR(i, 1)
        Set PC = New PC
        PC.PC = AR(i, 1)
        PC.Model = AR(i, 3)
    End If
    
    Select Case AR(i, 2)
        Case "00. Model"
            PC.Model = AR(i, 3)
        Case "00. Price"
            PC.Price = AR(i, 3)
        Case "01. CPU"
            PC.CPU = AR(i, 3)
        Case "02. Cores"
            PC.Cores = AR(i, 3)
        Case "03. TIM"
            PC.TIM = AR(i, 3)
        Case "04. GPU"
            PC.GPU = AR(i, 3)
        Case "05. Screen Size"
            PC.Screen = AR(i, 3)
        Case "06. Screen Res"
            PC.Res = AR(i, 3)
        Case "07. Disk Size"
            PC.Disk = AR(i, 3)
        Case "08. Disk Type"
            PC.dType = AR(i, 3)
        Case "09. Pounds"
            PC.Pounds = AR(i, 3)
    End Select
Next i


Obs.Add PC


Range("F1").Resize(1, Cols.Count) = Cols.toArray


For Each p In Obs
    Dim LR As Long: LR = Range("F" & Rows.Count).End(xlUp).Row + 1
    Cells(LR, 6).value = p.PC
    Cells(LR, 7).value = p.Model
    Cells(LR, 8).value = p.Price
    Cells(LR, 9).value = p.CPU
    Cells(LR, 10).value = p.Cores
    Cells(LR, 11).value = p.TIM
    Cells(LR, 12).value = p.GPU
    Cells(LR, 13).value = p.Screen
    Cells(LR, 14).value = p.Res
    Cells(LR, 15).value = p.Disk
    Cells(LR, 16).value = p.dType
    Cells(LR, 17).value = p.Pounds
Next p


End Sub

Class Code:

Private iPC As String
Private iModel As String
Private iPrice As Currency
Private iCPU As Currency
Private iCores As Integer
Private iTIM As Integer
Private iGPU As Integer
Private iScreen As Single
Private iRes As String
Private iDisk As Integer
Private iType As String
Private iPounds As Single


Public Property Get PC()
PC = iPC
End Property


Public Property Let PC(value)
iPC = value
End Property


Public Property Get Model()
Model = iModel
End Property


Public Property Let Model(value)
iModel = value
End Property


Public Property Get Price()
Price = iPrice
End Property


Public Property Let Price(value)
iPrice = value
End Property


Public Property Get CPU()
CPU = iCPU
End Property


Public Property Let CPU(value)
iCPU = value
End Property


Public Property Get Cores()
Cores = iCores
End Property


Public Property Let Cores(value)
iCores = value
End Property


Public Property Get TIM()
TIM = iTIM
End Property


Public Property Let TIM(value)
iTIM = value
End Property


Public Property Get GPU()
GPU = iGPU
End Property


Public Property Let GPU(value)
iGPU = value
End Property


Public Property Get Screen()
Screen = iScreen
End Property


Public Property Let Screen(value)
iScreen = value
End Property


Public Property Get Res()
Res = iRes
End Property


Public Property Let Res(value)
iRes = value
End Property


Public Property Get Disk()
Disk = iDisk
End Property


Public Property Let Disk(value)
iDisk = value
End Property


Public Property Get dType()
dType = iType
End Property


Public Property Let dType(value)
iType = value
End Property


Public Property Get Pounds()
Pounds = iPounds
End Property


Public Property Let Pounds(value)
iPounds = value
End Property

I named the class PC, so you will need to do the same. With the class code open, go to the class properties and give the "(Name)" value "PC".

 

[lrobbo314]

Updated PQ solution

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Pivoted Column" = Table.Pivot(Source, List.Distinct(Source[Fields]), "Fields", "Values")
in
    #"Pivoted Column"

 

[Alex20850]

Thank you very much for the code. In a very interesting twist, I stumbled on a imaginative solution for my problem on YouTube last night.

https://www.youtube.com/watch?v=rscXNUlRsH0

[h=1]<yt-formatted-string force-default-style="" class="style-scope ytd-video-primary-info-renderer">Quick Excel Trick to Unstack Data from one Column to Multiple Columns</yt-formatted-string>[/h]
Once again, thanks for the code.

 

[lrobbo314]

Interesting trick. The good thing about using PowerQuery is that it is truly dynamic, and you don't have to worry about hiding zeroes or stretching the formulas way down to make sure you accommodate new entries. And, if you look at the updated PowerQuery solution, I posted, I think her 'this is the easiest way' argument is kind of blown. In PQ, you load the table and pivot 1 column and you're done. Her way there are formulas and initials and search and replace and custom formatting and... you get the idea. I will give her that her way is much simpler than the VBA solution.