Flip Columns

[RiverRats]

I have a report that imports the wrong way and I need to flip the columns. The report starts with Dec 21 in the left column and Jan 21 in the end column. Is there a quick way to flip the columns so they go Jan to Dec.

Thank you in advance for reading this.

 

[RobP]

you asked for quick - so I just recorded a macro to do the job of selecting and re-arranging the columns manually.

Its not pretty or elegant, but if your data is in columns A - L then this should get what you want ?

Sub Macro1()
'
' Macro1 Macro
'

'
    Columns("K:K").Select
    Selection.Cut
    Columns("M:M").Select
    ActiveSheet.Paste
    Columns("J:J").Select
    Selection.Cut
    Range("N1").Select
    ActiveSheet.Paste
    Columns("I:I").Select
    Selection.Cut
    Range("O1").Select
    ActiveSheet.Paste
    Columns("H:H").Select
    Selection.Cut
    Range("P1").Select
    ActiveSheet.Paste
    Columns("G:G").Select
    Selection.Cut
    Range("Q1").Select
    ActiveSheet.Paste
    Columns("F:F").Select
    Selection.Cut
    Columns("R:R").Select
    ActiveSheet.Paste
    Columns("E:E").Select
    Selection.Cut
    Columns("S:S").Select
    ActiveSheet.Paste
    Columns("D:D").Select
    Selection.Cut
    Columns("T:T").Select
    ActiveSheet.Paste
    Columns("C:C").Select
    Selection.Cut
    Columns("U:U").Select
    ActiveSheet.Paste
    Columns("B:B").Select
    Selection.Cut
    Columns("V:V").Select
    ActiveSheet.Paste
    Columns("A:A").Select
    Selection.Cut
    Columns("W:W").Select
    ActiveSheet.Paste
    Columns("A:K").Select
    Selection.Delete Shift:=xlToLeft
End Sub

 

[RiverRats]

Cheers Rob

 

[Mposwal]

Or you can use the formula in B1 (make one row below headers)
=INDEX($A$1:$L$1,0,COLUMNS(A1:$L$1)) and then using fill handle pull the data upto B2-L2
Assuming all headers are from A to L

 

[Peter_SSs]

Another option to try

Sub FlipCols()
  Dim c As Long
  
  For c = 2 To 12
    Columns(c).Cut
    Columns(1).Insert
  Next c
End Sub