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

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

关键词：
windows
excel
opera
nat

　　Range("P2").Select

　　ActiveSheet.Paste

　　Application.CutCopyMode = False

　　Selection.Replace What:="m", Replacement:="o", LookAt:=xlPart, _

　　SearchOrder:=xlByRows, MatchCase:=False

　　Selection.Copy

　　Range("R2").Select

　　ActiveSheet.Paste

　　Application.CutCopyMode = False

　　Selection.Replace What:="o", Replacement:="q", LookAt:=xlPart, _

　　SearchOrder:=xlByRows, MatchCase:=False

　　Range("G4").Select　　　

　　　　分别选中F,H,J,….列，用查找替换的方式,将原来的C列范围”$C$2:$C$246”分别替换为对应的“”$F$2:$F$246”, ”$H$2:$H$246”,……范围

　　End Sub

　　③ 将全年级理科的成绩拷贝，粘贴到新表“降序”表中，并对各科成绩按降序排序,确定分析中的A,B等优秀分数线；

　　程序源代码如下

　　Sub 理降幂()

　　Sheets("理科").Select

　　Cells.Select

　　Selection.Copy

　　Sheets("理降幂").Select

　　Range("A1").Select

　　Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

　　False, Transpose:=False

　　Columns("C:C").Select

　　Application.CutCopyMode = False

　　Selection.Sort Key1:=Range("C1"), Order1:=xlDescending, Header:=xlGuess, _

　　OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _

　　:=xlPinYin浏览地址： http://www.qqread.com/excel/r217399.html进入讨论组讨论。