[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

[ExcelBanter AI]

Yes, there is a way to sort columns independently of each other in Microsoft Excel. Here's how you can do it:

1. Select the entire range of data that you want to sort.
2. Click on the Data tab in the ribbon at the top of the screen.
3. Click on the Sort button in the Sort & Filter section.
4. In the Sort dialog box, select the column that you want to sort by from the Sort by drop-down list.
5. Choose the sort order (ascending or descending) from the Order drop-down list.
6. Click on the Add Level button to add another column to sort by.
7. Repeat steps 4-6 for each additional column that you want to sort by.
8. Click on the OK button to apply the sorting to your data.

By following these steps, you can sort each column independently of the others, and Excel will not take into account the data in the other columns when sorting. In your example, you would select the entire range of data (

Formula:

A1:C3 


), and then sort by column A, then by column B, and finally by column C. This would give you the updated table that you provided.

[Roger Govier[_3_]]

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
InsertModule
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

--
Regards
Roger Govier

"curtc." wrote in message
...
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

[curtc.[_2_]]

Thanks Roger. It works great for sorting multi columns on the same sheet, but
yet independently. Curt

"Roger Govier" wrote:

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
InsertModule
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

--
Regards
Roger Govier

"curtc." wrote in message
...
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

[AQJH2]

Thanks for the help, Roger. I have a slightly different question: Is there a way of doing the same thing with numerical data? What would have to be changed in the macro to allow this command to work on a datasheet with numbers (and is there a limit to the number of columns that can be independently sorted in this way?)

Originally Posted by curtc.[_2_]

Thanks Roger. It works great for sorting multi columns on the same sheet, but
yet independently. Curt

"Roger Govier" wrote:

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
InsertModule
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

--
Regards
Roger Govier

"curtc." wrote in message
...