如何在VBA中计算多列平均值？学生成绩表实操需求

我来帮你把这段未完成的VBA代码补全，还会给你两种实现思路，适配不同需求：

方案一：用Excel内置函数（推荐，简洁高效） #

直接调用Excel的Average工作表函数，它会自动处理空单元格、非数值单元格的情况，代码量少还不容易出错：

Sub CalculateAverage()
    Dim lastRow As Long
    Dim currentRow As Long
    
    ' 给O列设置表头
    Cells(1, "O").Value = "Average Score"
    
    ' 获取数据的最后一行（以第一列姓名的非空行为准）
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 从第2行开始遍历数据行（第1行是表头）
    For currentRow = 2 To lastRow
        ' 计算当前行B列到N列的平均值，写入对应O列单元格
        Cells(currentRow, "O").Value = Application.WorksheetFunction.Average(Range(Cells(currentRow, "B"), Cells(currentRow, "N")))
    Next currentRow
    
    ' 可选：给O列设置数字格式，比如保留1位小数，让结果更美观
    Columns("O").NumberFormat = "0.0"
End Sub

方案二：手动累加求和（贴合你原来的代码思路） #

如果你想保留自己一开始的累加逻辑，我把代码补全并优化了，加入了数值判断和除以0的防护：

Sub CalculateAverage_OriginalStyle()
    Dim rng As Range
    Dim totalsum As Double
    Dim totalnum As Double
    Dim answer As Double
    Dim lastRow As Long
    Dim currentRow As Long
    Dim cell As Range
    
    ' 设置O列表头
    Cells(1, "O").Value = "Average Score"
    
    ' 获取最后一行数据的行号
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 遍历每一行数据
    For currentRow = 2 To lastRow
        ' 每次循环前重置总和和计数
        totalsum = 0
        totalnum = 0
        ' 选中当前行B到N的单元格区域
        Set rng = Range(Cells(currentRow, "B"), Cells(currentRow, "N"))
        
        ' 遍历区域内的每个单元格
        For Each cell In rng
            ' 只计算数值型的单元格，避免文本干扰
            If IsNumeric(cell.Value) Then
                totalsum = totalsum + cell.Value
                totalnum = totalnum + 1
            End If
        Next cell
        
        ' 计算平均值，防止出现除以0的错误
        If totalnum > 0 Then
            answer = totalsum / totalnum
        Else
            answer = 0 ' 如果整行没有有效数值，可以改成""空值，按需调整
        End If
        ' 把结果写入O列对应行
        Cells(currentRow, "O").Value = answer
    Next currentRow
    
    ' 可选：设置数字格式
    Columns("O").NumberFormat = "0.0"
End Sub

小提示 #

• 方案一的效率更高，因为Excel内置函数是经过优化的，处理大量数据时速度更快
• 两种方案都用lastRow来动态获取数据行数，不管你的表格有多少学生，都能自动适配，不用手动改行数

内容的提问来源于stack exchange，提问作者Murtaza Mohsin