Developing Matt

I’ve had to write this a couple of times, so I’m posting it here so that I can have it for the next time, assuming I’ll remember it’s here.  It’s just a vba script for excel to pivot your list of horizontal or vertical items the opposite way.  Nothing too fancy, but it will save you 20 minutes of writing it out yourself.  I’m sure there’s a way to do this in Excel, but I haven’t found it.

 Public Sub flipDataHorizontal()
Range(“a1″).Select
Dim i As Integer
For i = 1 To 200
ActiveCell.Offset(i, 0) = ActiveCell.Offset(0, i)
ActiveCell.Offset(i, 0).NumberFormat = ActiveCell.Offset(0, i).NumberFormat
Next
End Sub

Public Sub makeColumns()
Range(“a1″).Select
Dim i As Integer
For i = 1 To 200
ActiveCell.Offset(0, i + 1) = ActiveCell.Offset(i, 0)
ActiveCell.Offset(0, i + 1).NumberFormat = ActiveCell.Offset(i, 0).NumberFormat
Next
Columns(“a”).Delete
End Sub