Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 392
  • Last Modified:

Developing and automating a custom alphanumeric sort in Excel

I need to be able to develop and automate a custom sort on an alphanumeric list. We will be sorting this type of data on a regular basis, hence the most automated approach would be best. I have attached a sample excel showing the Excel default sort in column A, and the correct custom sort I need in column B.

Thanks,
Andrea
Sample-alphanumeric-sort.xlsx
0
Andreamary
Asked:
Andreamary
1 Solution
 
MacroShadowCommented:
Correct me if my observation is wrong. This is the sort you need:
1. The data should be separated into subsets for each number of characters per word
2.  Each subset should be sorted by itself.
3. Once the data is separated into subsets it actually is sorted already.
0
 
Rob HensonIT & Database AssistantCommented:
If MacroShadow is correct, to achieve that sort use a helper cell alongside the data with the following formula:

=LEN(A2)

Sort on the column contianing this formula and then on column A.

Thanks
Rob H
0
 
AndreamaryAuthor Commented:
I tried the above formula but it wasn't entirely successful...I've attached my results and highlighted the errors in red. They pertain to the "N" section, with those identified as "4's" in the helper column. To answer Macroshadow to the best of my abilities:

First sort — alpha, on first letter in string
Second sort — numeric, on all numbers within string, treating the number sequence within the string as a single number (it can be 1, 2, 3+ digits as per the example).
Third sort — alpha, on last letter in string

Thanks!
Andrea
Alphanumeric-HelperColumn.xlsx
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
Glenn RayExcel VBA DeveloperCommented:
No points..just clarifying how you should sort using Rob's helper column:
sort order
-Glenn
0
 
Glenn RayExcel VBA DeveloperCommented:
Followup:  Where would the value "CUT16" be ordered?  It does not have a single letter to start, but based on your rules above, I presume it should be at the top of the list.  Are there any other designations like this that might need to be considered?
0
 
AndreamaryAuthor Commented:
Hi Glenn,
Thanks for noting the CUT exception...I'm not very familiar with the data (troubleshooting for a colleague) but you're right, CUT should be at the top of the list. And confirming that I did sort as per your example with the helper column.

Andrea
0
 
Glenn RayExcel VBA DeveloperCommented:
So, given that issue, would it be correct to re-state the sorting algorithm like so?

1) Sort on all alphabetic characters at the start of each string, ascending
2) Sort on all numeric characters that follow, ascending
3) Sort on any alphabetic characters at the end of the string (if they exist), ascending
0
 
AndreamaryAuthor Commented:
Yes, a formula (or VBA) that does that should do the trick...

Thanks,
Andrea
0
 
Glenn RayExcel VBA DeveloperCommented:
As I was writing a UDF (user-defined function) that would help supply a new sorting string, I noticed that there were no instances where there was more than one letter suffix for any given set of letter-number combinations.  For example:
N104A
N104D

N300A
N300C

Put another way, instead of the designations being constructed like this:
AlphaCode1 - NumericCode (- AlphaCode2)   <---last value optional
it's more like:
AlphaCode1 - AlphanumericCode

Ex:
N-300-A
N-300A

meaning that the alphanumeric group is mutually-exclusive.

Long story short, I wanted to make sure that this would work if the first case was true, so I added some extra test values (in green) to ensure the UDF would work.  The attached workbook contains this function:
Function SortString(strInput As String)
    Dim x As Integer
    Dim strNum As String
    Dim boolBreak As Boolean
    For x = 1 To Len(strInput)
        If IsNumeric(Mid(strInput, x, 1)) Then
            boolBreak = True
            Do
                strNum = strNum & Mid(strInput, x, 1)
                x = x + 1
            Loop Until IsNumeric(Mid(strInput, x, 1)) = False
            SortString = SortString & Format(Val(strNum), "000000")
        Else
            SortString = SortString & Mid(strInput, x, 1)
        End If
    Next x
End Function

Open in new window


You would sort on the helper column with the function (col. B), then the Designation column to ensure that extra letter combinations are picked up correctly.

Regards,
-Glenn
EE-Alphanumeric-HelperColumn.xlsm
0
 
AndreamaryAuthor Commented:
Hi Glenn,

Thanks very much. I've tested this out, and it appears that when I sort by Column B (SortString), then by column A, there are still issues with the numbers being out of order (3-digit numbers preceding 2-digit numbers as shown below). It appears, though, if I change the order in which I sort the columns, sorting Column A first, then Column B, it appears to work. Is there a reason it would work this way, and would it always work? I've attached my test SortString file.

N388A
N389A
N38F

N419A
N41D
N420A
AlphaNumeric-SortString-Test.xlsm
0
 
Glenn RayExcel VBA DeveloperCommented:
When you do the sort, it should show the column names and you should select as follows:
correct sorting order
This is the only way it should work.

-Glenn
0
 
AndreamaryAuthor Commented:
It works perfectly, Glenn...much appreciated! (Thanks for your patience in steering me in the right direction..I was manually sorting each column instead of using the SORT interface as shown in your screen capture.)
Cheers,
Andrea
0
 
Glenn RayExcel VBA DeveloperCommented:
You're welcome.  Wish I could have figured an "elegant" helper formula instead of a UDF, but glad that it works.

-Glenn
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now