Como calcular Média Harmônica em VBA - VBA para Matemática e Estatística

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

' Macro que permite obter a média harmônica de um conjunto
Sub CalcularMediaHarmonica()
  ' vamos declarar o array
  Dim valores As Variant
  ' para guardar a quantidade de elementos
  Dim n As Integer
  ' para guardar a média harmônica
  Dim media_harmonica As Double
  ' guarda a soma dos inversos dos elementos do conjunto
  Dim soma As Double
  Dim i As Integer
     
  ' vamos criar um vetor com os valores do conjunto
  valores = Array(3, 9, 7, 2, 5)

  n = (UBound(valores) - LBound(valores)) + 1
  soma = 0
    
  ' vamos mostrar os elementos do conjunto
  Debug.Print "Os elementos do conjunto são: " & _
    Join(valores, ", ")
    
  ' agora vamos somar os inversos dos elementos
  For i = 0 To n - 1
    soma = soma + (1 / valores(i))
  Next
    
  ' agora obtemos a média harmônica
  media_harmonica = n / soma
    
  ' e mostramos o resultado
  Debug.Print "A Média Harmônica é: " & media_harmonica
End Sub