循环中调用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中进行解决，如果可以的话，那就更方便了。
首先需要解决如何在原始表中插入单科名次及总分班内名次列。