excel宏统计最大值、最小值、平均值和某几个区间值的占比

可以通过编写Excel VBA宏来实现此功能。以下是一个示例宏，可以统计选定范围内的最大值、最小值、平均值以及给定区间内数值的占比。

Sub Statistic()
    '定义变量
    Dim rng As Range
    Dim max As Double
    Dim min As Double
    Dim avg As Double
    Dim count As Integer
    Dim p1 As Integer
    Dim p2 As Integer
    Dim p3 As Integer
    
    '获取选定范围
    Set rng = Application.Selection
    
    '计算最大值、最小值、平均值
    max = WorksheetFunction.Max(rng)
    min = WorksheetFunction.Min(rng)
    avg = WorksheetFunction.Average(rng)
    
    '计算区间内数值的占比
    For Each cell In rng
        If cell.Value >= 0 And cell.Value < 60 Then
            p1 = p1 + 1
        ElseIf cell.Value >= 60 And cell.Value < 80 Then
            p2 = p2 + 1
        ElseIf cell.Value >= 80 And cell.Value <= 100 Then
            p3 = p3 + 1
        End If
    Next cell
    
    '输出结果
    count = rng.Count
    MsgBox "最大值：" & max & vbNewLine & _
           "最小值：" & min & vbNewLine & _
           "平均值：" & avg & vbNewLine & _
           "0-59分占比：" & Format(p1 / count, "0.00%") & vbNewLine & _
           "60-79分占比：" & Format(p2 / count, "0.00%") & vbNewLine & _
           "80-100分占比：" & Format(p3 / count, "0.00%")
End Sub

在Excel中执行宏的步骤：

1. 打开Excel文件，按键盘上的“Alt + F11”组合键，打开VBA编辑器；
2. 在VBA编辑器中，选择“插入”菜单下的“模块”，在新建的模块中粘贴上述代码；
3. 返回Excel界面，在要统计的数据区域选中一段区域，然后按键盘上的“Alt + F8”组合键，选择刚才新建的宏，点击“运行”即可。