How to create Excel Vba to transpose single row to multiple columns

How to create Excel VBA to transpose single row to multiple columns

Requirement:

The user requires help to create codes that will transpose single row data to multiple columns.

https://www.ozgrid.com/forum/forum/help-forums/excel-vba-macros/149247-excel-vba-to-transpose-single-row-to-multiple-columns

Solution:

Code:

Private Sub CommandButton1_Click()
    Dim x, xx, cnt1 As Long, cnt2 As Long, i As Long, ii As Long
    [C8].CurrentRegion.ClearContents
    x = [C5].CurrentRegion: cnt1 = 1: cnt2 = 1
    ReDim xx(1 To UBound(x, 2) / 3, 1 To 3)
    For i = 1 To UBound(x, 2) / 3
        For ii = 1 To 3
            xx(cnt1, ii) = x(1, cnt2)
            cnt2 = cnt2 + 1
        Next ii
        cnt1 = cnt1 + 1
    Next i
    [C8].Resize(UBound(xx, 1), UBound(xx, 2)).Value = xx
End Sub

Obtained from the OzGrid Help Forum.

Solution provided by apo.