[已解决]利用代码程序对考试成绩表按科目排序

向前650809

各位网友好，现要用代码程序对学生考试成绩表按单科排序，并填写名次，例如按数学排序，成绩表样式如图用代码排序时，能不能保留表头，还是说只能保留列标题，排完序后再添加表头。
请指导 ，谢谢

最佳答案

月排行榜 / 总排行榜

grf1973

2017-5-4 13:46

1. Sub 排序()
   
2.     px = [r2]  '排序依据
   
3.     c = [a2:o2].Find(px, lookat:=xlWhole).Column   '排序依据所在的列
   
4.     r = [a65536].End(3).Row
   
5.     Range("a3:o" & r).Sort key1:=Cells(3, c), order1:=xlDescending   '排序
   
6. End Sub

复制代码

跳转到最佳答案楼层

grf1973

1. Sub 排序()
   
2.     px = [r2]  '排序依据
   
3.     c = [a2:o2].Find(px, lookat:=xlWhole).Column   '排序依据所在的列
   
4.     r = [a65536].End(3).Row
   
5.     Range("a3:o" & r).Sort key1:=Cells(3, c), order1:=xlDescending   '排序
   
6. End Sub

复制代码

一休和尚

grf1973 发表于 2017-5-4 13:46

老师：
如果只需要选中一列，然后按照表头进行排序，表头不动；
从第三行开始排序，代码该如何写；
谢谢