VBA Code:
Function CalculateAverage(rng As Range) As Double
Dim cell As Range
Dim total As Double
Dim count As Integer
' Initialize the total and count variables
total = 0
count = 0
' Loop through each cell in the range
For Each cell In rng
' Check if the cell value is numeric
If IsNumeric(cell.Value) Then
' Add the cell value to the total and increment the count
total = total + cell.Value
count = count + 1
End If
Next cell
' Calculate the average if there are valid values
If count > 0 Then
CalculateAverage = total / count
Else
CalculateAverage = 0
End If
End Function
Join Our Telegram Group
Join Our WhatsApp Group
