Sorting problem

Any body knows how to sort:

A2,A1,A3,A21,A31,A25 to be A1,A2,A3,A21,A25,A31 ??
Currently the result I got was A1,A2,A21,A25,A3,A31.

Thanks a million.

You can only achieve your result by making A1, A2, A3 = A01,A02,A03.

"broogle" wrote:

> Any body knows how to sort:
>
> A2,A1,A3,A21,A31,A25 to be A1,A2,A3,A21,A25,A31 ??
> Currently the result I got was A1,A2,A21,A25,A3,A31.
>
> Thanks a million.
>
>

You could try this which adds a column, adds leading 0 (zero) to the data
and places in the added column, sorts it and deletes column. It assumes
original data to be sorted is in column A and that digits lie between 1 and
99 i.e A1 to A99.

Sub Sort()

Columns(1).Insert

ilastrow = Cells(Rows.Count, "B").End(xlUp).Row ' Was originally A
For i = 2 To ilastrow
Cells(i, "A") = Left(Cells(i, "B"), 1) & Format(Right(Cells(i, "B"),
Len(Cells(i, "B")) - 1), "00") ' Add leading zero
Next i

Range("A2:Z" & ilastrow).Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Columns(1).Delete

End Sub

HTH

"Toppers" wrote:

> You can only achieve your result by making A1, A2, A3 = A01,A02,A03.
>
> "broogle" wrote:
>
> > Any body knows how to sort:
> >
> > A2,A1,A3,A21,A31,A25 to be A1,A2,A3,A21,A25,A31 ??
> > Currently the result I got was A1,A2,A21,A25,A3,A31.
> >
> > Thanks a million.
> >
> >