VBA to bring columns in rows (except first column)

[Dampa88]

Dear all,

I'm struggling with a code to move columns values into rows, except the first column.
Of course, it will be needed to add rows and populate the blanks in the first column.

Probably, an example will make my exercise easier to understand:

An important point is that the number of columns may change.

I have been able to add a certain number of rows after the first one and transpose the values.
Then I'm blocked when I need to move to the next value of the first columns.

I know that there is a easier code, I hope you can give me some inputs.

Thanks,
D

 

[alansidman]

This is a simple unpivot using Power Query.

Here is the Mcode for that procedure. Look at the links in my signature for more information on this Excel function.

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Unique", type text}, {"InfoA", type text}, {"InfoB", type text}, {"InfoC", type text}, {"InfoD", type text}, {"InfoE", type text}}),
    #"Unpivoted Other Columns" = Table.UnpivotOtherColumns(#"Changed Type", {"Unique"}, "Attribute", "Value")
in
    #"Unpivoted Other Columns"

Data Range

	A​	B​	C​
2​	A​	InfoA​	Home​
3​	A​	InfoB​	North​
4​	A​	InfoC​	West​
5​	A​	InfoD​	Sunny​
6​	A​	InfoE​	Hot​
7​	B​	InfoA​	Office​
8​	B​	InfoB​	Sud​
9​	B​	InfoC​	East​
10​	B​	InfoD​	Cloudy​
11​	B​	InfoE​	Cold​

 

[Dampa88]

Thanks for the very fast reply and for the hint!
I'd never think about unpivot.

KR,
D