La media geométrica de n datos es la raíz enésima del producto.
Aquí te dejo una función que sirve para cualquier media geométrica, tu le indicas el rango y ella misma contará el número de elementos y hará el cálculo. Cuidado al dar el rango, si das un rango mayor y hay casillas vacías el resultado será cero porque cuando hay un cero en los datos la media geométrica es cero.
Imagino que conocerás como crear macros. Si no todo se va al traste, esta faena no se puede hacer con funciones dentro de la hoja, se necesita una función definida en una macro.
Pues eso creas un módulo y pegas este texto.
Public Function geometri(rango As Range) As Double
Dim Curcell As Object
Dim contador As Integer
geometri = 1
contador = 0
For Each Curcell In rango
geometri = geometri * Curcell.Value
contador = contador + 1
Next
geometri = geometri ^ (1 / contador)
End Function
Y dentro de la hoja tendrás que usar funciones del tipo
Geometri(A1:A365)
Para calcular la media geométrica de la columna A desde el elemento 1 al 365
También pueden estar en filas o en filas y columnas, pero recuerda lo que te dije de que en el rango no hayas casillas vacías.
Gemetri(A1:F1)
Geometri(A1: C3)
Etc.
Y eso es todo, espero que te sirva y lo hayas entendido. Consulta si tienes alguna duda y no olvides puntuar.