[已解决]求助vba大师成绩排序

心正意诚身修

武林长风 发表于 2015-7-25 06:54
想做个模板，请帮忙。

我也不會.遇到需要VBA解決的問題.我也只能上來求助.不過話說回來..如果是函數能不能解決呢,添加個輔助類什麼的.

心正意诚身修

我剛下載了附件.我看了一下.手工就可以排序了呀.為什麼非得寫成VBA呢,我表示不解.

武林长风

心正意诚身修 发表于 2015-7-25 09:39
我剛下載了附件.我看了一下.手工就可以排序了呀.為什麼非得寫成VBA呢,我表示不解.

想做个模板，以后就不用重复操作了，

grf1973

1. Sub 排序()
   
2.     Dim sh As Worksheet, SortRng As Range
   
3.     Sheets("学校排名").Range("a4:aj100").Sort key1:=Sheets("学校排名").[aj4]
   
4.     For Each sh In Worksheets
   
5.         If sh.Name Like "*汇总" Then      '年级汇总，按M列排序
   
6.             sh.Range("a3:m" & sh.[a65536].End(3).Row).Sort key1:=sh.[m3]
   
7.         ElseIf sh.Name Like "年级*" Then        '年级单科，按“名次”所在列排序，分班排
   
8.             c = sh.Rows(2).Find("名次").Column
   
9.             arr = sh.Range("a1:b" & sh.[a65536].End(3).Row)
   
10.             For i = 1 To UBound(arr)
    
11.                 If arr(i, 1) = "序号" Then
    
12.                     r = sh.Cells(i, 1).End(xlDown).Row
    
13.                     Set SortRng = sh.Range(sh.Cells(i + 1, 1), sh.Cells(r, c + 1))
    
14.                     SortRng.Sort key1:=sh.Cells(i + 1, c)
    
15.                     i = r
    
16.                 End If
    
17.             Next
    
18.         ElseIf sh.Name Like "*率" Then          '及格率、优秀率，以两列为一组排序，倒序
    
19.             r = sh.[a65536].End(3).Row
    
20.             For j = 2 To 10 Step 2
    
21.                 sh.Range(sh.Cells(3, j - 1), sh.Cells(r, j)).Sort key1:=sh.Cells(3, j), order1:=xlDescending
    
22.             Next
    
23.         End If
    
24.     Next
    
25. End Sub
    

复制代码

grf1973

请看附件。