How to auto sort numeric then alpha charaters!

[Crazy1923]

Hi,

Do anyone knows how to automatically sort numeric digits and if the value is the same it will auto sort for the alpha characters. For example:

B 22
C 42
D 10
A 10
E 22

I need to make it like this:

A 10
D 10
B 22
E 22
C 42

How can I make it by using a formula? Any help will be appreciated

 

[machopicho]

In column A try:

Sub Ordinament()
Dim v(), vt() As Variant
Dim i, j, n As Integer
'load vector
n = Cells(Rows.Count, 1).End(xlUp).Row
n = n - 1
ReDim v(n) As Variant
'ordinament vector
Position = 1
For cicle = 1 To 2
For i = 1 To n
v(i) = Mid(Cells(i + 1, 1), Position, 2)
Next i
For i = n - 1 To 1 Step -1
For j = 1 To i
If v(j) >= v(j + 1) Then
a = v(j)
v(j) = v(j + 1)
v(j + 1) = a
End If
Next j
Next i
'riposition vector
For i = 1 To UBound(v)
Cells(i, 3) = Cells(i, 3) & v(i)
Next i
Position = 3
Next
End Sub