Excel中用宏和VBa自动统计成绩

来源：作者：出处：巧巧读书 2006-10-11 进入讨论组

关键词：
windows
excel
opera
nat

　　ActiveSheet.Paste‘拷贝四班成绩

　　End Sub

　　② 利用Excel的统计函数“RANK”将理科表中学生的各科成绩排名次；目的是让每位学生了解自己在全年级学生中的排名的位置。

　　程序代码如下：

　　Sub 理名次()

　　Range("D2").Select

　　ActiveCell.FormulaR1C1 = "=RANK(RC[-1],R2C3:R246C3,0)"

　　Selection.AutoFill Destination:=Range("D2:D246"), Type:=xlFillDefault

　　Range("D2:D246").Select

　　ActiveWindow.LargeScroll Down:=-13

　　ActiveWindow.ScrollRow = 1 ’在工作表的D2单元格输入公式，并用拖的方式在D2-D246列复制

　　Selection.Copy

　　Range("F2").Select

　　ActiveSheet.Paste

　　Application.CutCopyMode = False

　　Selection.Replace What:="$c$2:$c$246", Replacement:="$e$2:$e$246", LookAt _

　　:=xlPart, SearchOrder:=xlByRows, MatchCase:=False

　　拷贝D列粘贴到F列F2

　　Selection.Copy

　　Range("H2").Select

　　ActiveSheet.Paste

　　Application.CutCopyMode = False

　　Selection.Replace What:="e", Replacement:="g", LookAt:=xlPart, _

　　SearchOrder:=xlByRows, MatchCase:=False静态页面：http://www.qqread.com/excel/r217399.html进入讨论组讨论。