execl宏统计某一列最大值、最小值、平均值和大于某个区间值的占比

可以使用Excel内置的函数来实现这些功能，不需要使用宏。

1. 最大值：使用MAX函数，语法为=MAX(数据区域)。例如，如果要统计A列中的最大值，公式为=MAX(A:A)。

2. 最小值：使用MIN函数，语法为=MIN(数据区域)。例如，如果要统计A列中的最小值，公式为=MIN(A:A)。

3. 平均值：使用AVERAGE函数，语法为=AVERAGE(数据区域)。例如，如果要统计A列中的平均值，公式为=AVERAGE(A:A)。

4. 大于某个区间值的占比：使用COUNTIF和COUNT函数来计算符合条件的单元格数量，然后用除法计算占比。例如，如果要统计A列中大于10的值的占比，公式为=COUNTIF(A:A,">10")/COUNT(A:A)。

如果您非要使用宏来实现，可以参考以下代码：

Sub Calculate()
    Dim lastRow As Long
    Dim maxVal As Double
    Dim minVal As Double
    Dim avgVal As Double
    Dim countVal As Long
    Dim greaterThanValCount As Long
    Dim greaterThanValPercentage As Double
    
    lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    maxVal = WorksheetFunction.Max(Range("A1:A" & lastRow))
    minVal = WorksheetFunction.Min(Range("A1:A" & lastRow))
    avgVal = WorksheetFunction.Average(Range("A1:A" & lastRow))
    countVal = WorksheetFunction.Count(Range("A1:A" & lastRow))
    greaterThanValCount = WorksheetFunction.CountIf(Range("A1:A" & lastRow), ">10")
    greaterThanValPercentage = greaterThanValCount / countVal
    
    MsgBox "Max value: " & maxVal & vbCrLf & _
           "Min value: " & minVal & vbCrLf & _
           "Average value: " & avgVal & vbCrLf & _
           "Values greater than 10: " & greaterThanValCount & vbCrLf & _
           "Percentage of values greater than 10: " & greaterThanValPercentage
End Sub

这段代码可以计算A列中的最大值、最小值、平均值和大于10的值的占比。您可以根据需要修改条件和数据区域。