在VBA编程中，计算平均分的代码可以根据不同的需求和数据结构有多种实现方式。以下是几种常见的方法：
方法一：使用字典记录总分和人数
这种方法可以分别记录每个班级的总分和参加考试的人数，然后计算每个班级的平均分。
```vba
Dim dicA As Object
Dim ArrKey, ArrItem
Dim i As Integer
Dim totalScore As Double
Dim studentCount As Integer
Set dicA = CreateObject（"Scripting.Dictionary"）
i = 2
' 假设成绩在C列
Do Until Cells（i, 1）.Text = ""
If Not dicA.Exists（Cells（i, 1）.Text） Then
dicA.Add Cells（i, 1）.Text, New Collection
End If
dicA（Cells（i, 1）.Text）.Add Cells（i, 3）.Value, CStr（Cells（i, 3）.Value）
i = i + 1
Loop
ArrKey = dicA.Keys
ArrItem = dicA.Items
For Each key In ArrKey
totalScore = totalScore + dicA（key）（1） ' 总分
studentCount = studentCount + dicA（key）.Count ' 学生人数
Next key
Dim averageScore As Double
averageScore = totalScore / studentCount
MsgBox "各班平均分是： " & averageScore
```
方法二：使用数组和排序
这种方法可以先将所有成绩排序，然后计算前90%的平均分。
```vba
Sub YgB（）
Dim arr, sum, n, m, i
arr = Range（"A1"）.CurrentRegion ' 获取当前区域
Workbooks.Add
Range（"A1"）.Resize（UBound（arr）, 1） = arr
Range（"A1"）.CurrentRegion.Sort key1:=Range（"A1"）, order1:=xlDescending, Header:=xlNo ' 降序排列
arr = Range（"A1"）.CurrentRegion ' 获取当前区域
n = UBound（arr） ' 总数
m = Round（n * 0.9） ' 前90%
sum = 0 ' 求和
For i = 1 To m
sum = sum + arr（i, 1）
Next i
sum = sum / n ' 平均
MsgBox "前90%学生平均成绩是： " & Format（sum, "0.00"）
End Sub
```
方法三：使用公式
这种方法可以直接在Excel中使用公式计算平均值，无需编写VBA代码。
```excel
=AVERAGE（班级成绩单元格区域）
例如：
=AVERAGE（C4:D10）
```
方法四：使用自定义函数
可以定义一个自定义函数来计算平均值。
```vba
Function CalculateAverage（rng As Range） As Double
Dim sum As Double
Dim count As Integer
sum = 0
count = rng.Cells.Count
For i = 1 To count
sum = sum + rng.Cells（i）.Value
Next i
CalculateAverage = sum / count
End Function
```
使用这个方法，可以在Excel中直接调用函数计算平均值，例如：
```excel
=CalculateAverage（A1:A10）
```
总结
以上方法各有优缺点，选择哪种方法取决于具体的需求和数据结构。如果需要处理大量数据并进行复杂的计算，建议使用字典或自定义函数。如果数据量不大，直接使用Excel公式会更加简便。