使用 Excel 函数统计各科成绩大于平均分的学生平均分

**使用 Excel 函数统计各科成绩大于平均分的总平均分** 

在 Excel 中统计各科成绩大于平均分的总平均分，可以使用以下步骤：

1. 在一个空白单元格中输入以下公式：

=AVERAGEIF(range, criteria, average_range)

2. 将“range”替换为包含学生成绩的数据区域。
3. 将“criteria”替换为大于或等于平均分的条件。例如，如果平均分为 70，则条件可以是 ">=70"。
4. 将“average_range”替换为包含平均分的数据区域。

例如，如果学生成绩数据在 A2:A10 区域，平均分在 B11 单元格，则公式可以是：

=AVERAGEIF(A2:A10, ">=70", B11)

按 Enter 键后，公式将返回大于或等于平均分的所有成绩的平均值。

**使用 Excel 函数统计各科成绩大于平均分的科目平均分** 

如果需要统计各科成绩大于平均分的科目平均分，可以使用以下步骤：

1. 在一个空白单元格中输入以下公式：

=AVERAGEIFS(average_range, criteria_range1, criteria1, criteria_range2, criteria2, ...)

2. 将“average_range”替换为包含科目平均分的数据区域。
3. 将“criteria_range1”替换为包含科目名称的数据区域。
4. 将“criteria1”替换为科目名称的条件。例如，如果要统计语文成绩，则条件可以是 “语文”。
5. 将“criteria_range2”替换为包含成绩的数据区域。
6. 将“criteria2”替换为大于或等于平均分的条件。例如，如果平均分为 70，则条件可以是 ">=70"。

例如，如果科目平均分数据在 B2:B10 区域，科目名称在 A2:A10 区域，学生成绩数据在 C2:C10 区域，平均分为 70，则公式可以是：

=AVERAGEIFS(B2:B10, A2:A10, "语文", C2:C10, ">=70")

按 Enter 键后，公式将返回语文科目中大于或等于平均分的所有成绩的平均值。

**使用 VBA 代码统计各科成绩大于平均分的科目平均分** 

如果需要统计多科成绩大于平均分的科目平均分，可以使用 VBA 代码来自动化此过程。以下是一个示例代码：

Sub AverageGreaterThanAverage()
Dim ws As Worksheet
Dim rngData As Range
Dim rngAverage As Range
Dim rngCriteria As Range
Dim criteria As String
Dim i As Long
Dim j As Long
Dim sum As Double
Dim count As Long

Set ws = ThisWorkbook.Worksheets("Sheet1")
Set rngData = ws.Range("A2:C10")
Set rngAverage = ws.Range("B2:B10")
Set rngCriteria = ws.Range("A2:A10")

' 遍历科目
For i = 1 To rngAverage.Count
    criteria = rngAverage(i).Value

    ' 遍历成绩
    For j = 1 To rngData.Rows.Count
        If rngData(j, 3).Value >= criteria Then
            sum = sum + rngData(j, 3).Value
            count = count + 1
        End If
    Next j

    If count > 0 Then
        ws.Cells(i + 1, 4).Value = sum / count
    End If

    sum = 0
    count = 0
Next i

End Sub

将此代码添加到 Excel 工作簿中的模块中，然后运行宏即可统计各科成绩大于平均分的科目平均分。