如何在VBA中从标准差计算中排除"0“值？

Function StdevExcludeZero(rng As Range) As Double
    Dim cell As Range
    Dim sum As Double
    Dim count As Integer
    
    sum = 0
    count = 0
    
    For Each cell In rng
        If cell.Value <> 0 Then
            sum = sum + cell.Value
            count = count + 1
        End If
    Next cell
    
    If count <= 1 Then
        StdevExcludeZero = 0
    Else
        StdevExcludeZero = WorksheetFunction.StDev(rng)
    End If
End Function