可不可以只对表十三各科平均积分按降序一键排序

廖月

可不可以只对表十三各科平均积分按降序一键排序，保留表格里的原始公式，其他表格不动

沈默00

清风竹-

请看附件。

清风竹-

请看3楼附件。

廖月

清风竹- 发表于 2024-10-25 08:35
请看附件。

谢谢老师的帮扶，用的很好，感谢。

lizhipei78

不好意思，有点忙，忘记回复你了

1. Sub 排序()
   
2.     Application.ScreenUpdating = False
   
3.     On Error Resume Next
   
4.     m = Cells.Find("表十三").Row + 1
   
5.     Col = Cells(m, Columns.Count).End(xlToLeft).Column
   
6.     For j = 1 To Col Step 2
   
7.         r = Cells(Rows.Count, j).End(xlUp).Row
   
8.         Set Rng = Cells(m, j).Resize(r, 2)
   
9.         Rng.Sort Key1:=Cells(m, j + 1), Order1:=2, Header:=1
   
10.     Next
    
11.     Application.ScreenUpdating = True
    
12.     MsgBox "完成"
    
13. End Sub

复制代码

廖月

lizhipei78 发表于 2024-10-25 19:43
不好意思，有点忙，忘记回复你了

谢谢老师牵挂。百忙之中还记得我这点事，

yanglinzi

请测试。。

廖月

yanglinzi 发表于 2024-10-28 11:02
请测试。。

老师，这个代码用到其他年级（行数变化了），就出现错误，能不能让他固定搜索“表十三”，并只对表十三内容排序啊？