循环中调用Sum函数就可以。
1、单科的级部名次;
2、单科的班内名次(此项主要是可以用来计算班内前N名的平均分,也算是比较有用。)
3、总分的级部名次;
4、总分的班内名次(此项主要是可以让班主任便于分析本班成绩;同时还可以用来计算班内前N名的平均分。)
Sub计算单科及总分的级部名次:
1、建立验证表,加入名次列,添加标题行;
Worksheets("kh").ActivateActiveSheet.Copybefore:=ActiveSheetActiveSheet.Name="验证"Application.DisplayAlerts=FalseDimiAsIntegerFori=1To10Range(Cells(1,12+(i-1)*2),Cells(1,12+(i-1)*2)).EntireColumn.InsertRange(Cells(1,12+(i-1)*2),Cells(1,12+(i-1)*2)。
Value=Range(Cells(1,11+(i-1)*2),Cells(1,11+(i-1)*2)).Value+"Jmc"NextiRange("A1").CurrentRegion.Columns.AutoFit'必须得加Columns,因为得告诉是对列还是行设置自动适应.
Application.DisplayAlerts=True'ActiveSheet.Delete'计算单科及总分的级部名次DimtotalR,jAsIntegerDimmycell,myrangeAsRangetotalR=Range("A65536").End(xlUp).RowDebug.PrinttotalR'
设置两个单元变量,一个mycell存储单元格,一个存储单元格区域.Fori=1To10Forj=2TototalRSetmyrange=Range(Cells(2,11+(i-1)*2),Cells(totalR,11+(i-1)*2))Setmycell=Range(Cells(j,11+(i-1)*2),Cells(j,11+(i-1)*2))Range(Cells(j,12+(i-1)*2),Cells(j,12+(i-1)*2)).
Value=Application.WorksheetFunction.Rank(mycell,myrange,0)NextjNextiEndSub
扩展资料:
问题的背景:
成绩分析时经常需要计算班内前40名的平均分,而这个前40名是指各科及总分的,以前处理起来都是在VFP中进行,但那样还是需要来回的转换数据格式,所以现在想在Excel中进行解决,如果可以的话,那就更方便了。
首先需要解决如何在原始表中插入单科名次及总分班内名次列。
循环中调用Sum函数就可以。
1、单科的级部名次;
2、单科的班内名次(此项主要是可以用来计算班内前N名的平均分,也算是比较有用)。
3、总分的级部名次;
4、总分的班内名次(此项主要是可以让班主任便于分析本班成绩;同时还可以用来计算班内前N名的平均分)。
问题的背景:
成绩分析时经常需要计算班内前40名的平均分,而这个前40名是指各科及总分的,以前处理起来都是在VFP中进行,但那样还是需要来回的转换数据格式,所以现在想在Excel中进行解决,如果可以的话,那就更方便了。
首先需要解决如何在原始表中插入单科名次及总分班内名次列。
以上内容参考:浙公网-《浙江省普通高校招生选考科目考试实施办法》
本回答被网友采纳