Grab the Free VBA Quick Reference Guide
www.chrisjterr...
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
Негізгі бет Macro Monday Transpose a Table Solution - Code
Пікірлер: 16