Excel vba学生各班成绩分析统计及对应模板.docVIP

Excel vba学生各班成绩分析统计及对应模板（修正版） 访问_/file/id_84798498557394945.htm可下载相应模板及vba代码。 各班成绩分析统计.xla vba代码（修正版） 适合的学校计算方式为：在单科成绩按总分降序排列取前“N”(平均基数)名的基础上求单科平均及对全年级求年级平均，班名及年名在执行一下“清( )”后可自动显示出来，（注意：请修改一下暂坐生标志，防止先删了数据） 模块2代码： Sub 清() 清除“姓名”字段中含“N/A”的无效数据。 清除“姓名”字段中含“a”的暂坐生。 Dim i, j As Integer i = Range(A65536).End(xlUp).Row For j = 1 To i If IsError(Cells(j, 3)) Then Rows(j).ClearContents ElseIf InStr(Cells(j, 3), a) 0 Then (”a”为暂坐生标志，模板中“A”为正确暂坐生标志，可自改) Rows(j).ClearContents End If Next End Sub Sub 统() ActiveCell.Formula = =sum(a1:f1)/ i ActiveCell.FormulaR1C1 = =SUM(R[-6]C:R[-1]C)/ i Application.Run Book2.xls!Macro1 清除不必要数据 MsgBox 请先设好暂座标志 Application.Run 清 初始化 班级个数 平均基数 Dim i, m, j, n, o, jm, zh, li, newRange As Integer Dim i, m, j, n, o, newRange As Integer Dim tellMe As String On Error GoTo VeryEnd tellMe = 请输入一个平均基数 tellMe2 = 请输入一个正确的最大班级个数 i = Application.InputBox(prompt:=tellMe, Title:=平均基数, Default:=50, Type:=1) m = Application.InputBox(prompt:=tellMe2, Title:=班级个数, Default:=8, Type:=1) If i = False Then Exit Sub If m = False Then Exit Sub VeryEnd: 求各班各科平均分 科目 Range(D2).Range(A1:I1).Select Selection.Copy Range(Q2).Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False Range(z2) = 政史 取得政史列号 For jm = 17 To 30 If Cells(2, jm) = 政治 Then zh = jm ElseIf Cells(2, jm) = 历史 Then li = jm End If Next 班级 j = 1 执行的班级个数 n = 83 执行的求平均 行号定位 o = 3 执行聚集 行号定位 While j = m Range(d n ).FormulaArray = =AVERAGE(LARGE(R[-80]C:R[-1]C,ROW(R1:R i ))) Range(d n ).Select Selection.AutoFill Destination:=ActiveCell.Range(A1:I1), Type:= _ xlFillDefault ActiveCell.Range(A1:I1).Select Selection.Copy Range(q o ).Select Selection.PasteSpecial Paste:=xlPasteVal