swap between columns

[amsikoby]

Hi.


i have several columns. A-H. i want to swap between them so H will be A and G will be B ext.
i can't sort them by small/large cause they have text in them.

Thanks a lot

[TMS]

Insert a row before the data. Number the columns in the order you want them. Then sort by column on row 1. Finally, delete the temporary row you inserted.

[amsikoby]

but if i have 500 columns it will take me long.
is there any other way by marking them all and put a formula or somthing like that?

thanks, koby.

[JohnTopley]

.... post a sample file: see instruction in yellow banner at top of the page.

[JohnTopley]

Sub Swap_ALL()
Dim ar, arr

Sheets("sheet1").Activate
ar = [a1].CurrentRegion
ReDim arr(1 To UBound(ar), 1 To UBound(ar, 2))
cc = UBound(ar, 2)

For c = 1 To UBound(ar, 2)
    If cc < c Then Exit For
    For r = 1 To UBound(ar, 1)
        arr(r, c) = ar(r, cc)
        arr(r, cc) = ar(r, c)
    Next r
    cc = cc - 1
Next c

Sheets("sheet2").Activate
[a1].Resize(UBound(arr, 1), UBound(arr, 2)) = arr

End Sub

Output on Sheet2

[amsikoby]

exactly.
Thanks a lot.