使用宏统计excel中一列数据的最大、最小、平均值，并统计区间计数和所占比例

可以使用Excel内置函数来实现这些功能。

1.大值：使用MAX函数，例如：=MAX1:A10)，表示在A1到A10元格范围内找到最大值。

. 最小值：使用MIN函数，例如：MIN(A1:A10)，表示在A1到10单元格范围内找到最小。

3. 平均值：使用AVERAGE函数例如：=AVERAGE(A1:A10)，表示在A1到10单元格范围计算平均值。

4. 区间数：使用COUNTIF函数例如：=COUNTIF1:A10,">=")，表示在A到A10单元格范围内统计大于等于60的数值的数。

5. 所占例：使用COUNTIFCOUNTA函数，例如：=COUNTIF(A1:A10,">=60")/COUNTA(A1:A10)，表示在A1到A10单元格范围内，大于等于60的数值占总数的比例。

可以通过宏来自动计算这些数据，代码如下：

Sub Statistics()
    Dim lastRow As Long
    Dim maxVal As Double
    Dim minVal As Double
    Dim avgVal As Double
    Dim countVal As Long
    Dim countRatio As Double
    
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row '获取数据的最后一行
    
    '计算最大值
    maxVal = WorksheetFunction.Max(Range("A1:A" & lastRow))
    Range("B1").Value = maxVal
    
    '计算最小值
    minVal = WorksheetFunction.Min(Range("A1:A" & lastRow))
    Range("B2").Value = minVal
    
    '计算平均值
    avgVal = WorksheetFunction.Average(Range("A1:A" & lastRow))
    Range("B3").Value = avgVal
    
    '计算区间计数
    countVal = WorksheetFunction.CountIf(Range("A1:A" & lastRow), ">=60")
    Range("B4").Value = countVal
    
    '计算所占比例
    countRatio = countVal / WorksheetFunction.CountA(Range("A1:A" & lastRow))
    Range("B5").Value = countRatio
End Sub

将上述代码复制到Excel的VBA编辑器中，保存后，点击运行即可自动计算这些数据。