使用for循环和范围的自定义VBA函数

Function SumRange(rng As Range) As Double
    Dim cell As Range
    Dim sum As Double
    
    For Each cell In rng
        sum = sum + cell.Value
    Next cell
    
    SumRange = sum
End Function

Function AverageRange(rng As Range) As Double
    Dim cell As Range
    Dim sum As Double
    Dim count As Integer
    
    For Each cell In rng
        sum = sum + cell.Value
        count = count + 1
    Next cell
    
    AverageRange = sum / count
End Function

Function MaxRange(rng As Range) As Double
    Dim cell As Range
    Dim max As Double
    
    max = rng.Cells(1).Value
    
    For Each cell In rng
        If cell.Value > max Then
            max = cell.Value
        End If
    Next cell
    
    MaxRange = max
End Function