WorksheetFunction.Average (Excel)
Retorna a média aritmética dos argumentos.
Os argumentos podem ser números, ou nomes, matrizes ou referências que contenham números. Os valores lógicos e as representações de números por extenso que você digita diretamente na lista de argumentos são contados. Se uma matriz ou argumento de referência contiver texto, valores lógicos ou células vazias, estes valores serão ignorados; no entanto, células com valor zero serão incluídas. Os argumentos que são valores de erro ou texto que não podem ser traduzidos em números geram erros. Se desejar incluir valores lógicos e representações de números em forma de texto em uma referência como parte do cálculo, use a função MÉDIAA.
Average (Arg1, Arg2, ..., Arg30)
Dim dblAverage As Double
dblAverage = WorksheetFunction.Average(Arg1:=)