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

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

关键词：
windows
excel
opera
nat

引用:http://www.qqread.com/excel/r217399.html
　　拷贝D列粘贴到H列H2

　　Selection.Copy

　　Range("J2").Select

　　ActiveSheet.Paste

　　Application.CutCopyMode = False

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

　　SearchOrder:=xlByRows, MatchCase:=False

　　拷贝D列粘贴到J列J2

　　Selection.Copy

　　Range("L2").Select

　　ActiveSheet.Paste

　　Application.CutCopyMode = False

　　Selection.Replace What:="i", Replacement:="k", LookAt:=xlPart, _

　　SearchOrder:=xlByRows, MatchCase:=False

　　拷贝D列粘贴到L列L2

　　Selection.Copy

　　Range("N2").Select

　　ActiveSheet.Paste

　　Application.CutCopyMode = False

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

　　SearchOrder:=xlByRows, MatchCase:=False

　　Columns("N:N").ColumnWidth = 5.63

　　Columns("N:N").ColumnWidth = 5

　　Range("N2").Select

　　Columns("M:M").ColumnWidth = 5.13

　　Range("N2").Select

　　ActiveCell.FormulaR1C1 = "=RANm(RC[-1],R2C13:R246C13,0)"

　　Columns("N:N").Select

　　Selection.Replace What:="runm", Replacement:="runk", LookAt:=xlPart, _

　　SearchOrder:=xlByRows, MatchCase:=False

　　Range("N2:N246").Select

　　Selection.Replace What:="ranm", Replacement:="rank", LookAt:=xlPart, _

　　SearchOrder:=xlByRows, MatchCase:=False

　　Selection.Copy进入讨论组讨论。