Fórmula MODA para texto

Hola a todos.
Por favor, necesito que me ayuden a adaptar la fórmula MODA para que me sirva con texto. Necesito saber cual es la palabra que mas veces aparece en una columna. Muchas gracias de antemano.

=INDICE(A1:A9,MODA(COINCIDIR(A1:A9,A1:A9,0)+TRANSPONER({0\0})))

El 0\0, podria ser 0;0 o 0.0 o 0,0

Abraham

Me olvidadba, es matricial asi que ingresal presionando SHIFT+CTRL+ENTER, sino no funcionara

Abraham

Muchas gracias por tu pronta respuesta Abraham!
Sin embargo necesito que me expliques en mas detalle el asunto.... soy un usuario con conocimientos básicos. Que significa "El 0/0, podría ser0;0 o 0.0 o 0,0"'? ¿Que diferencia existe entre una fórmula normal y una matricial?.... lo que necesito concretamente es esto: estoy recopilando información sobre el clima y quiero que en una celda me indique si a lo largo del mes el clima fué predominantemente "seco" o "lluvioso" , analizando las entradas para cada día del mes.... Gracias por su ayuda.... y su tiempo.

Favor de darme mis creditos, copienla en un modulo de visual basic y ya podran usarla:

Office 2007 no tiene problemas con esto, la funcion moda soporta texto.

Function ModaTexto(RangoTexto) As String

'por rene contruida "a la mala"



Dim Textos As Collection

Dim Esta As Boolean

Dim Celda 'objeto celda

Dim i As Integer





Set Textos = New Collection



'La primera desgracia es construir la collecion con los textos sin repetir

For Each Celda In RangoTexto

'barrer cada celda

For i = 1 To Textos.Count

If Celda.Value = Textos(i) Then

Esta = True

Exit For

Else

Esta = False

End If

Next

If Esta = False And Celda.Value <> "" Then Textos.Add (Celda.Value) 'no tomamos en cuenta los valores vacios

Next



Dim a As String

For i = 1 To Textos.Count

a = a & " " & Textos(i)

Next

'muestra lo que tiene la collecion

'MsgBox a



'ahora hay que contar con la collecion vs el rango

Dim TempStr As String 'variable que guardara el string

Dim CuentaInt As Integer 'se va incrementando cada vez que aparezca el string

Dim TempInt As Integer 'esta guardara la cantidad



For i = 1 To Textos.Count

For Each Celda In RangoTexto

If Textos(i) = Celda.Value Then

CuentaInt = CuentaInt + 1

If CuentaInt > TempInt Then

TempInt = CuentaInt

TempStr = Textos(i)

End If

End If

Next

CuentaInt = 0

Next

'muestra la ganadora

'MsgBox TempStr & " " & TempInt



ModaTexto = TempStr



End Function

Gracias! Ayudo muchisimo!

muchas gracias me ha servido mucho