一个关于排序的问题!一个关于排序的问题!

ykcbf1100

1. Sub ykcbf()   '//2025.3.25   C列有A的排到最上方
   
2.     With Sheets("Sheet1")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         arr = .Range("A2:C" & r).Value
   
5.         ReDim brr(1 To UBound(arr), 1 To 3)
   
6.         For i = 1 To UBound(arr)
   
7.             If Right(arr(i, 3), 1) = "A" Then
   
8.                 j = j + 1
   
9.                 brr(j, 1) = arr(i, 1)
   
10.                 brr(j, 2) = arr(i, 2)
    
11.                 brr(j, 3) = arr(i, 3)
    
12.             End If
    
13.         Next i
    
14.         For i = 1 To UBound(arr)
    
15.             If Right(arr(i, 3), 1) <> "A" Then
    
16.                 j = j + 1
    
17.                 brr(j, 1) = arr(i, 1)
    
18.                 brr(j, 2) = arr(i, 2)
    
19.                 brr(j, 3) = arr(i, 3)
    
20.             End If
    
21.         Next i
    
22.        .Range("A2:C" & r).Value = brr
    
23.     End With
    
24.     MsgBox "排序完成！", vbInformation, "完成"
    
25. End Sub
    

复制代码

PZB0000

=SORTBY(C2:C401,RIGHT(C2:C401,1),-1)

mjm04

高版本，WPS正则

=DROP(SORT(HSTACK(A2:C401,REGEXP(C2:C401,"[A-z]+$")),4,1),,-1)

422566739

mark一下！！！！！！！！