排序

ddz79101

老师！有列单元格中，有的尾部有数字结尾，有的无，我希望将尾部无数字结尾的集中在上下排列。请老师帮忙看看。谢谢

tzDel

=SORTBY(A2:G22,IFNA(REGEXP(C2:C22,"\d+$"),0),1)

ykcbf1100

附件供参考。。。

ykcbf1100

1. Sub ykcbf()   '//2025.3.26   排序
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     On Error Resume Next
   
5.     Dim tm: tm = Timer
   
6.     Set Sh = ThisWorkbook.Sheets("Sheet1")
   
7.     With Sh
   
8.         r = .Cells(.Rows.Count, 7).End(3).Row
   
9.         Set Rng = .Range("a2:h" & r)
   
10.         arr = Rng.Value
    
11.         For i = 1 To UBound(arr)
    
12.             arr(i, 8) = 1
    
13.             tt = Val(ston(arr(i, 3)))
    
14.             If tt > 0 Then arr(i, 8) = 9
    
15.         Next
    
16.     End With
    
17.     Set sht = ThisWorkbook.Worksheets.Add
    
18.     With sht
    
19.         Set Rng = .[a1].Resize(UBound(arr), UBound(arr, 2))
    
20.         Rng.Value = arr
    
21.         Rng.Sort Rng.Columns(8), 1, Orientation:=1
    
22.         arr = .Range("a2:g" & r).Value
    
23.     End With
    
24.     sht.Delete
    
25.     Sh.[a2].Resize(UBound(arr), UBound(arr, 2)) = arr
    
26.     Application.ScreenUpdating = True
    
27.     MsgBox "共用时：" & Format(Timer - tm, "0.000") & "秒！"
    
28. End Sub
    

复制代码

ykcbf1100

tzDel 发表于 2025-3-26 20:52
=SORTBY(A2:G22,IFNA(REGEXP(C2:C22,"\d+$"),0),1)

你这公式在xls文件中是用不了的。

ddz79101

ykcbf1100 发表于 2025-3-26 21:04
附件供参考。。。

谢谢老师！运行成功

ddz79101

tzDel 发表于 2025-3-26 20:52
=SORTBY(A2:G22,IFNA(REGEXP(C2:C22,"\d+$"),0),1)

谢谢老师！收藏了。因我电脑版本低03的，无结果。

ddz79101

ykcbf1100 发表于 2025-3-26 21:37
你这公式在xls文件中是用不了的。

是的！老师，还是你记得我

今铭昔