Forcing Excel to Sort Cells as Text

The new SortPlus described in my most recent comment below is a user-defined function (UDF) intended for application in a cell formula. It is slower but more capable than Excel's SORT because SortPlus uses the Range.Sort method of Excel's object model. This implies that SortPlus uses the values from its RangeArray argument to populate a Worksheet.Range object. But a UDF is restricted from doing any of the following:
+ Insert, delete, or format cells on the spreadsheet
+ Change another cell's value
+ Move, rename, delete, or add sheets to a workbook
+ Change any of the environment options
+ Add names to a workbook
+ Set properties or execute most methods
So you might wonder how SortPlus can populate a Worksheet.Range and apply that Range's Sort method.
This is how. I created a virtual worksheet in a phantom workbook in an independent Excel application within my UDF. Here is an abstract:

Function SortPlus(...) As Variant
    ...
    Dim App As Excel.Application
    Set App = New Excel.Application
    With App
        .Visible = False
        With .Workbooks.Add 'phantom workbook
            With .Worksheets(1) 'virtual worksheet
                With .Range("A1").Resize(nRows, nCols)
                    .Value = ... 'populate
                    .Sort ...
                    SortPlus = .Value 'result
                End With
            End With
            .Close False
        End With
        .Quit
    End With
    Set App = Nothing
    ...
End Function

It is important to note that App is independent of the host Excel application; they do not share properties or restrictions.
I have not seen this technique used in a UDF before. If you are aware of an earlier reference, please identify it in a comment here.
See https://sites.google.com/view/MyExcelToolbox
and https://support.microsoft.com/Search/results?query=limitations+of+custom+functions+in+Excel

My comment dated 2023-09-19 below described My Excel Toolbox's SortPlus function. That function has been replaced by a new version that no longer requires Excel 2021 or later (Excel 2021+) because it does not use Excel's SORT function. The new version enables 3 additional optional parameters as follows:
=SortPlus(RangeArray, [SortIndex], [SortOrder], [LeftRight], [HasHeader], [CaseSensitive], [CodeOrder], [CustomOrder], [NumberAsText], [TextAsNumber])
The first 7 parameters are described in my previous comment. The 3 new parameters are described here.
CustomOrder is FALSE (default) to ignore, or a custom list number (like 1 for Sun, Mon, Tue,...), or a temporary custom list as comma separated text (like "N, S, E, W"). Backslash (\) can be used to escape comma in CustomOrder comma separated text.
NumberAsText is FALSE (default) to ignore; if TRUE and RangeArray is a cell range, then numeric cell values displayed as text are considered text.
TextAsNumber is FALSE (default) to sort numeric text separate from numbers or TRUE to treat numeric text as numbers.
CodeOrder applies only if CustomOrder and TextAsNumber are both FALSE.
SortPlus is slower but more capable than Excel's SORT and does not require Excel 2021+. If used in a cell formula, it returns a dynamic array. When using earlier versions of Excel without support for dynamic arrays, review the PDF file UseSpillArray.pdf.
See https://sites.google.com/view/MyExcelToolbox

Re. my most recent comment below, the SortANSI macro now supports Undo (Ctrl+Z).

My Excel Toolbox now includes the SortANSI macro to sort all rows of a selected range by a specified column in ascending or descending order. The text portion of that column will be sorted in ANSI/ASCII/Unicode order, either case ignored or case sensitive, instead of Excel order. SortANSI will not sort a range that has formulas and does not support Undo (Ctrl+Z).
See https://sites.google.com/view/MyExcelToolbox

My Excel Toolbox now includes the following function to enhance the SORT function available in Excel 2021+:
=SortPlus(RangeArray,[SortIndex],[SortOrder],[LeftRight],[HasHeader],[CaseSensitive],[CodeOrder])
The first four arguments match the SORT function; the remaining three are added features. All but the first are optional.
RangeArray can be a cell range (contiguous) or an array constant or the result of an array function.
SortIndex is the base-1 index of a column or row to sort by; default is 1.
SortOrder is 1 (default) for ascending or -1 for descending.
LeftRight is FALSE (default) to sort rows or TRUE to sort columns.
HasHeader is FALSE (default) to sort the first row/column or TRUE to skip the first row (if LeftRight is FALSE) or first column (if LeftRight is TRUE).
CaseSensitive is FALSE (default) to sort text with case ignored or TRUE for a case sensitive sort.
CodeOrder is FALSE (default) to sort text in Excel order or TRUE to sort text in ANSI/ASCII/Unicode order. (See my most recent coment below.)
Text that looks like a number is sorted as text, not as a number.
The following example returns a case sensitive sort in ANSI/ASCII/Unicode order of a multi-column range with no header row by column 3 descending:
=SortPlus(D1:H99,3,-1,,,TRUE,TRUE)
The next example sorts an array function result that includes a header first by column 1 then by column 2, both ascending:
=SortPlus(SortPlus(ListDocProperties(),1,,,TRUE),2,,,TRUE)
SortPlus requires Excel 2021 or later (Excel 2021+). It replaces the SortCaseSensitive function removed from My Excel Toolbox.
See https://sites.google.com/view/MyExcelToolbox

You could do a reverse after sorting that deletes the final space

Re. Steve Alford's initial comment below, it should be noted that the Windows version of Excel does NOT sort text characters in ANSI/ASCII/Unicode order. (Ditto for other Windows apps like Explorer.) The sort order is illustrated in the following table (see Figure 1 below) which is divided into three sections for convenient display. Each section has the following four columns:
1. The code value in ANSI/ASCII/Unicode order
2. The character for that code value: CHAR(col.1)
3. Column 2 sorted by Excel BEFORE dividing into three sections: SORT(col.2)
4. The ANSI code value of the character in column 3: CODE(col.3)
In column 3 notice that Excel sorts apostrophe and hyphen before space, all special characters are before numerals, and upper/lower case letters are together (A a B b C c ...) instead of separate (A B C ... a b c ...) as in ANSI/ASCII/Unicode.
With respect to letters, case sensitive Excel order moves each lower case before its upper case (a A b B c C ...) while case sensitive ANSI/ASCII/Unicode order keeps all upper case before lower case (A B C ... a b c ...).
With respect to VBA:
+ Option Compare Text or StrComp(s1, s2, vbTextCompare)
-- corresponds to Excel order with case ignored.
+ Option Compare Binary or StrComp(s1, s2, vbBinaryCompare)
-- corresponds to case sensitive ANSI/ASCII/Unicode order.
Excel's sort order becomes more curious when special characters are combined with letters like X'X or X-X or X:X or X?X or even XxX etc. In this case, the combinations with apostrophe or hyphen are sorted LAST when other things are equal (except perhaps the total number of characters). This explains why Excel sorted C-00958-501 after C00958-501 and C-00958-503 after C00958-503 in Steve Alford's initial comment. If Steve replaced all hyphens with something other than apostrophe he would see the result he expected when sorting in Excel order; on the other hand, the ANSI/ASCII/Unicode result would depend on his choice of replacement character. Replacing all hyphens with tilde (the last ASCII character) yields the following results (see Figure 2 below)

Re. my most recent comment below, the SortSelection macro now uses an insertion sort algorithm instead of the previous quick sort. Insertion sort is more appropriate for a partially sorted array. The new version can be viewed or downloaded as text at Google Drive:
https://drive.google.com/file/d/1--WE5sQJQcdgsgdBlIVyVgIJwqZ3-0iZ/view

Re. my most recent comment below, improved versions of the SortSelection and Quicksort procedures can now be viewed or downloaded as text at Google Drive:
https://drive.google.com/file/d/1--WE5sQJQcdgsgdBlIVyVgIJwqZ3-0iZ/view

Steve:
I have a Quicksort solution to your first query but have not been able to post it here as a comment. You can view and download a text file at Google Drive:
https://drive.google.com/file/d/1--WE5sQJQcdgsgdBlIVyVgIJwqZ3-0iZ/view

Peter,

I get that the LEFT(A2,2) will sort it properly, but only if it's pre-sorted A-Z first. If the list has C-00958-503 before C-00958-501 and you sort using the left 2 characters, the sort fails to sort the -501 before the -503 (ignoring the last "-'"). I'm not smart enough to understand that all variances will be sorted in ascii sequence if the data is always sort A-Z before sorting using LEFT(A2,2). It's possible that I'm totally missing your response, however, I appreciate your help.

Steve

Add a column with the 1st two letters of each part number and sort on that colunm, e.g. LEFT(A2,2)

{[fig}]

Allen, I'm also in the Aviation Industry, but can not make any of the sorting solutions actually sort via the ascii table. For example:

Before Sort After Sort
=======================================
BUM7004-1 BUM7004-1
BUM7004-501 BUM7004-501
BUM7011-537 BUM7011-537
C00948-1 C-00958-501
C00948-503 C-00958-503
C00958-501 C00948-1
C-00958-501 C00948-503
C00958-503 C00958-501
C-00958-503 C00958-503
D10-21-021-501 D10-21-021-501

I can only get the sort in the Before Sort column. I understand that your solution does not mention ascii order, but your solution did come up when searching for ascii sort order. Any ideas on how to do a true ascii order sort.

Thanks,
Steve

Kris might not like the result when numeric values are sorted as text. Here is an example (including negative values):
1,-1,10,-10,2,-2,20,-20,200,3,....
My Excel Toolbox includes the TextFromNumber macro to convert numeric constants in a selection to text; other cells in the selection are not disturbed. The result can be either fixed-length padded with leading zeros or variable-length. The fixed-length option includes a decimal point and any minus sign in the count, so converting the previous example to 6 characters would sort:
00001.,00002.,00003.,-0001.,00010.,-0002.,00020.,-0010.,-0020.,00200.,....
See https://sites.google.com/view/MyExcelToolbox

To convert cells in a column to text:
1. Select the cells
2. Pick Data > Text to Columns
3. In the Text to Columns Wizard:
3.a. Pick Delimited, then click Next
3.b. Clear all delimiters, then click Next
3.c. Pick Text for column data format, then click Finish