Transpose 3 rows to column

[ricafonyat]

My goal is to transpose in sequence three or more arrays arranged in rows, as shown in cell B11.

Any help it would be appreciated.
Best Regards

 

[Asbestos_Jen]

Try this:

=TOCOL(B5:H7)

 

[jolivanes]

I am still on Excel 2007 on this computer so I don't have some of the features of 365.
Many ways of doing it. This is just one possiblity with a macro.
Easy to adjust if needed. Starting point (Cells(5, 2) = B5) is the only hardcoded reference.

Sub One_Way()
Dim dataArr, ttl
Dim i As Long, j As Long, lr As Long, lc As Long
lr = Cells(Rows.Count, 2).End(xlUp).Row
lc = Range("XFD5").End(xlToLeft).Column
dataArr = Range(Cells(5, 2), Cells(lr, lc)).Value
    For i = LBound(dataArr) To UBound(dataArr)
        For j = LBound(dataArr, 2) To UBound(dataArr, 2)
            ttl = ttl & "|" & dataArr(i, j)
        Next j
    Next i
ttl = Split(Mid(ttl, 2), "|")
Cells(11, 2).Resize(UBound(ttl) + 1).Value = Application.Transpose(ttl)
End Sub

 

[alansidman]

An alternative with Power Query

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Unpivoted Columns" = Table.UnpivotOtherColumns(Source, {}, "Attribute", "Value"),
    #"Removed Columns" = Table.RemoveColumns(#"Unpivoted Columns",{"Attribute"})
in
    #"Removed Columns"

 

[ricafonyat]

Try this:

=TOCOL(B5:H7)

Try this:

=TOCOL(B5:H7)

View attachment 112957

Many Thanks