前N名平均分函数

由于工作需要，经常要求出各科前15名学生的平均分，但是用EXCEL既有函数求有点烦，所以就编写了这个前N名平均分函数，现将代码写出来供大家参考：
　　
　1、函数格式：
　自定义函数g（单元格区域，名次）
　如求在a1:a100区域中出前10名平均分：g（a1:a100,10)

　2、代码
  Function g(selection, h1)
　   For Each d In Range(selection.Address)
　       S = Application.WorksheetFunction.Rank(d, Range(selection.Address)) '求出区域内每个单元格的名次
　       If S <= h1 Then
　          h = h + 1 '小于名次 h1的个数
　          kk = (kk + d) '小于名次 h1的分数之和
　       End If
　   Next
　   g = Round(kk / h, 2) '求出平均值并四舍五入到十分位
　End Function  
  本人将其制成一个加载宏，供各位使用。