Can I change the format of my data?

[uwish7]

I have excel data vertical. However, the files I am getting to upload has the data horizontally. Is there a quick and fast way of changing the format to horizontal? Using Excel to transpose it, will take a long time.

 

[offthelip]

this macro will do it for you:

Sub Transpo()
Dim outarr() As Variant
inarr = ActiveSheet.UsedRange
ActiveSheet.UsedRange.ClearContents
rowno = UBound(inarr, 1)
colno = UBound(inarr, 2)
ReDim outarr(1 To colno, 1 To rowno)
For i = 1 To rowno
 For j = 1 To colno
  outarr(j, i) = inarr(i, j)
 Next j
Next i
Range(Cells(1, 1), Cells(colno, rowno)) = outarr




End Sub

 

[uwish7]

this macro will do it for you:

Sub Transpo()
Dim outarr() As Variant
inarr = ActiveSheet.UsedRange
ActiveSheet.UsedRange.ClearContents
rowno = UBound(inarr, 1)
colno = UBound(inarr, 2)
ReDim outarr(1 To colno, 1 To rowno)
For i = 1 To rowno
 For j = 1 To colno
  outarr(j, i) = inarr(i, j)
 Next j
Next i
Range(Cells(1, 1), Cells(colno, rowno)) = outarr




End Sub

Excuse me. I am not VBA proficient. I am not sure how to configure the code.

 

[offthelip]

Have a look at this link it hoepfully will explain how to create and run a macro, if this is not sufficient keep searching for similar threads.:
https://www.wikihow.com/Create-a-Macro-in-Excel-2010

 

[uwish7]

Hello. I ran the macro and the result was a blank screen.