sort

[sania]

I have numerical data arranged in many columns (for example 100 columns), I want to sort all my data in ascending order with a single command, I mean when I give command ascending it don't ask sort by but sort all data within a column in ascending order, any help in this.

When I open the sort command box, it ask "sort by" which column, by this I have to sort each column individually, e.g. first sort by column A in ascending order......

case is like

 

[sania]

!!

 

[sania]

early reply is needed

 

[jindon]

Do you mean sort by column separately ?

Sub test()
Dim i As Long
With Range("a1").CurrentRegion
    For i = 1 To .Columns.Count
        .Columns(i).Sort key1:=.Cells(1,i), order1:=xlAscending, header:=xlGuess
    Next
End With
End Sub

 

[sania]

Thank, problem solved.