sorting columns at the same time but independently of each other

  • Thread starter Thread starter curtc.
  • Start date Start date
C

curtc.

Is their a function or short macro that will sort columns by alpha but will
do all columns on the sheet at the same time and independently of the data in
the other columns?
Example:
A B C
1 fred john james
2 albert zack chris
3 bill curt mike

Updated:
A B C
1 albert curt chris
2 bill john james
3 fred zack mike
 
Hi Curt

try the following macro

Sub SortColsIndependently()
Dim i As Long, lc As Long
lc = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To lc
Columns(i).Sort Key1:=Cells(1, i), Order1:=xlAscending
Next i
End Sub

Copy the Code above
Alt+F11 to invoke the VB Editor
Insert>Module
Paste code into white pane that appears
Alt+F11 to return to Excel

To use
Alt+F8 to bring up Macros
Highlight the macro name
Run
 
Thanks Roger. It works great for sorting multi columns on the same sheet, but
yet independently. Curt
 
Back
Top