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

你可以使用Excel内置函数来计算最大值、最小值和平均值。对于大于某个值的占比，你可以使用COUNTIF函数来计算符合条件的单元格数量，然后除以总单元格数量来得到占比。

下面是一个示例代码，它会自动统计第一列的最大值、最小值、平均值以及大于某个值的占比，并将结果输出到第二列：

Sub CalculateStats()
    Dim lastRow As Long
    Dim maxValue As Double
    Dim minValue As Double
    Dim sumValue As Double
    Dim avgValue As Double
    Dim countValue As Long
    Dim greaterValueCount As Long
    Dim greaterThan As Double
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' Calculate max, min and average value
    maxValue = Application.WorksheetFunction.Max(Range("A1:A" & lastRow))
    minValue = Application.WorksheetFunction.Min(Range("A1:A" & lastRow))
    sumValue = Application.WorksheetFunction.Sum(Range("A1:A" & lastRow))
    avgValue = sumValue / (lastRow - 1)
    
    ' Calculate count and percentage of values greater than a certain value
    greaterThan = 50 ' Change this to the value you want to compare against
    countValue = Application.WorksheetFunction.CountIf(Range("A1:A" & lastRow), ">" & greaterThan)
    greaterValueCount = countValue / (lastRow - 1)
    
    ' Output results to second column
    Range("B1").Value = "Max Value"
    Range("B2").Value = "Min Value"
    Range("B3").Value = "Average Value"
    Range("B4").Value = "Percentage of Values Greater Than " & greaterThan
    
    Range("C1").Value = maxValue
    Range("C2").Value = minValue
    Range("C3").Value = avgValue
    Range("C4").Value = greaterValueCount
End Sub

请注意，此代码假定数据在第一列，并且第一行是标题行。如果你的数据不符合这些条件，请相应地修改代码。