How to sort a list of text?

[Eric]

I get a list of text under column A, and I would like to sort it, but I
cannot use small, because it is not number.
Does anyone have any suggestions on how to sort text?
Thanks in advance for any suggestions
Eric

 

[Bob I]

Sorting a column of text works fine in Excel 2003.

 

[Eric]

There is a list of text under column A, and I would like to sort the list
into column B rather than sort on column A. Do you have any suggestions on
what kind of function I should use? I cannot use SMALL, because text is not a
number.
Do you have any suggestions?
Thanks in advance for any suggestions
Eric

 

[REJesser]

At the top of your worksheet there are two icons. One has an "A" on top and
a "Z" on the bottom with an arrow pointed downward. The other has a "Z" on
top and an "A" on the bottom. Highlight what you want sorted and then select
one of the two options.

 

[Eric]

Thank everyone very much for any suggestions
The text under column A is raw data, and I don't want to touch it.
Based on a list of text under column A, I would like to sort it and list
them out under column B.
Does anyone have any suggestions?
Thank everyone very much for any suggestions
Eric

 

[Bob I]

Select column A, copy it and paste it into Column B. Select column B
only and Click Data, Sort.

 

[Eric]

No, that is not what I want to do, I would like to use any function or coding
to do the sorting.
Does anyone have any suggestions?
Eric

 

[Bob I]

Then record a macro, that would be "coding".

No, that is not what I want to do, I would like to use any function or coding
to do the sorting.
Does anyone have any suggestions?
Eric

:

 

[Gord Dibben]

Sub copy_sort()
With ActiveSheet
.Range("B:B").Value = Range("A:A").Value
End With
Columns("B:B").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B1").Select
End Sub

Note: assumes you have a header row.

If not, change B2 to B1


Gord Dibben MS Excel MVP