Nếu các mã chỉ có dạng mCn trong đó m là số, C là ký tự từ A đến E hoặc "", n là 1 chữ số hoặc "" thì ta có thể convert mã thành số = m*100 + (ASC(C)-ASC("A")+1) *10 + n (trường hợp C hay n="" coi là 0). Copy các số này vào cột Y để sort, cuối cùng xóa cột Y đi.
Function cn(s As String) As Long
Dim i As Integer
Dim c As String
Dim k As Integer
Dim s1 As String, s2 As String, s3 As String
s1 = s
s2 = ""
s3 = ""
For i = 65 To 69
c = Chr(i)
k = InStr(s, c)
If k > 0 Then
s1 = Left(s, k - 1)
s2 = c
s3 = Right(s, Len(s) - k)
GoTo a
End If
Next
a:
kq = CLng(s1) * 100
If s2 <> "" Then kq = kq + (Asc(s2) - 64) * 10
If s3 <> "" Then kq = kq + CLng(s3)
cn = kq
End Function
Sub sapxep()
n = Range("A10000").End(xlUp).Row
For i = 2 To n
Range("Y" & i) = cn(Range("C" & i))
Next
Range("A2:Y" & n).Sort key1:=Range("Y2:Y" & n), order1:=xlAscending, header:=xlNo
Range("Y:Y").ClearContents
End Sub
Lọc số cần đưa vào để Sort, hình như anh chưa xem kỹ dữ liệu, còn có số sau alpha nữa, ví dụ 244A1, 47B1, ...
Thế này chắc là được:
=IF(ISERROR(VALUE(MID(C2,LEN(C2)-1,1))),IF(LEN(C2)>1,RIGHT("000000"&C2,5),RIGHT("000000"&C2&"00",5)),IF(ISERROR(VALUE(RIGHT(C2))),RIGHT("000000"&C2&"0",5),RIGHT("000000"&C2&"00",5)))Hơn nữa chủ thớt này cũng "biến" đâu mất rồi. Còn lại "ta với ta".
