关于excei中的排序问题请高手帮解决

excel在路上

有点意思。好像看明白了, 再看看。呵呵

神箭

祝洪忠- 发表于 2013-11-25 10:15
B列输入公式=--MID(SUBSTITUTE(A1,"考场",),2,5)
以B列排序

老祝！你真历害，向你学习了！

ykcbf1100

借题练习，字串按数字排序，VBA

正则提取数字、冒泡排序

ykcbf1100

1. Sub ykcbf()  '//2025.4.23   按数字排序
   
2.     Application.ScreenUpdating = False
   
3.     Set ws = ActiveSheet
   
4.     r = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
   
5.     Set Rng = ws.Range("A1:A" & r)
   
6.     arr = Rng.Value
   
7.     Dim tm: tm = Timer
   
8.     col = 1
   
9.     For i = 1 To UBound(arr)
   
10.         For j = i To LBound(arr) + 1 Step -1
    
11.             If ston(arr(j, col)) < ston(arr(j - 1, col)) Then
    
12.                 Dim temp As Variant
    
13.                 temp = arr(j, 1)
    
14.                 arr(j, 1) = arr(j - 1, 1)
    
15.                 arr(j - 1, 1) = temp
    
16.             Else
    
17.                 Exit For
    
18.             End If
    
19.         Next j
    
20.     Next i
    
21.     Rng.Value = arr
    
22.     Application.ScreenUpdating = True
    
23.     MsgBox "共用时：" & Format(Timer - tm, "0.000") & "秒！"
    
24. End Sub

复制代码

wyslw2004

=SORTBY(A1:A40,--REGEXP(A1:A40,"[0-9]+"))