十几位数字排序问题？

hbjz

从小到大 顺序排序。
谢谢

jiangxj

加辅助列,B1=right(A1,5)  下拉,  按B列排序

11005046

原帖由 jiangxj 于 2011-6-17 09:55 发表
加辅助列,B1=right(A1,5)  下拉,  按B列排序

加个LEFT

1. =LEFT(right(A1,5))

复制代码

frank55555

分成二列按二列先後來排序,如要保留原列就先復制一列.

hbjz

好的，谢谢各位

ykcbf1100

VBA解决方案

ykcbf1100

1. Sub ykcbf()   '//2025.3.26    '//按字串中最后5位数字排序
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     On Error Resume Next
   
5.     Set sh = ThisWorkbook.Sheets("Sheet1")
   
6.     With Sheets("Sheet1")
   
7.         r = .Cells(Rows.Count, 1).End(3).Row
   
8.         arr = .[a1].Resize(r, 2)
   
9.         For i = 1 To UBound(arr)
   
10.             arr(i, 2) = Right(arr(i, 1), 5) * 1
    
11.         Next
    
12.     End With
    
13.     Set sht = ThisWorkbook.Worksheets.Add
    
14.     With sht
    
15.         Set Rng = .[a1].Resize(UBound(arr), UBound(arr, 2))
    
16.         .Columns(1).NumberFormatLocal = "@"
    
17.         Rng.Value = arr
    
18.         Rng.Sort Rng.Columns(2), 1, Orientation:=1
    
19.         arr = Rng.Value
    
20.     End With
    
21.     sht.Delete
    
22.     sh.Columns(1).NumberFormatLocal = "@"
    
23.     sh.[a1].Resize(r, 1) = arr
    
24.     Application.ScreenUpdating = True
    
25.     MsgBox "OK！"
    
26. End Sub
    

复制代码

mjm04

高版本
=SORTBY(A1:A1039,REGEXP(A1:A1039,"^\d{10}")*1,1,REGEXP(A1:A1039,"\d{5}$")*1,1)


低版本，加辅助列吧