excel宏统计最大最小平均值

可以使用以下VBA宏来统计Excel中一列数据的最大值、最小值和平均值：

Sub CalculateStats()
    Dim LastRow As Long
    Dim MaxValue As Double
    Dim MinValue As Double
    Dim AverageValue As Double
    Dim TotalValue As Double
    Dim CountValues As Long
    
    '获取当前列的最后一行
    LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    
    '循环计算最大值、最小值、平均值以及总和
    For i = 1 To LastRow
        If IsNumeric(ActiveSheet.Cells(i, "A").Value) Then
            TotalValue = TotalValue + ActiveSheet.Cells(i, "A").Value
            CountValues = CountValues + 1
            If ActiveSheet.Cells(i, "A").Value > MaxValue Then
                MaxValue = ActiveSheet.Cells(i, "A").Value
            End If
            If ActiveSheet.Cells(i, "A").Value < MinValue Or MinValue = 0 Then
                MinValue = ActiveSheet.Cells(i, "A").Value
            End If
        End If
    Next i
    
    '计算平均值
    If CountValues > 0 Then
        AverageValue = TotalValue / CountValues
    End If
    
    '将结果显示在单元格中
    ActiveSheet.Cells(LastRow + 1, "A").Value = "最大值：" & MaxValue
    ActiveSheet.Cells(LastRow + 2, "A").Value = "最小值：" & MinValue
    ActiveSheet.Cells(LastRow + 3, "A").Value = "平均值：" & AverageValue
End Sub

请注意，此宏假定要统计的数据在第一列中。如果您要统计的数据位于其他列，请相应地更改代码中的`"A"`。另外，此宏还假定数据没有空格或空单元格。如果有空格或空单元格，请相应地调整代码。