In this Video we use VBA to Transpose a table of data. We make a range object and pass it into a an array and use couple of For Loops to transpose the Data

CODE=============

Sub TransposeRange()

Dim rng As Range
Set rng = Range(“A1”).CurrentRegion

oarray = rng

rng.Clear

For cl = 1 To UBound(oarray)
For rw = 1 To UBound(oarray, 2)
Cells(rw, cl) = oarray(cl, rw)
Next
Next

End Sub

Chris Terrell

View all posts