Como localizar o valor que ocorre com maior frequência (número ou texto) numa lista no Excel?

Normalmente, podemos utilizar a função MODO (=MODO(A1:A16)) para identificar o número mais frequente num intervalo. Contudo, esta função não é compatível com cadeias de texto. Para obter o valor que ocorre com maior frequência, aplique a seguinte fórmula de matriz. Siga estes passos:

Numa célula vazia junto aos dados, introduza a fórmula abaixo e prima simultaneamente as teclas Shift + Ctrl + Enter.

=ÍNDICE($A$1:$A$16;MODO(CORRESP($A$1:$A$16;$A$1:$A$16;0)))

A fórmula é demasiado complicada para memorizar? Guarde-a como uma entrada de Texto Automático e reutilize-a com apenas um clique no futuro!Ler mais…     Teste gratuito

Se tiver o Kutools para Excel instalado, pode aplicar facilmente a sua fórmula Encontrar valor mais comum para obter rapidamente o valor mais frequente de uma lista ou coluna no Excel.

1. Selecione uma célula vazia onde pretende colocar o valor encontrado e clique em Kutools > Assistente de Fórmulas > Assistente de Fórmulas.

2. Na caixa de diálogo Assistente de Fórmulas, selecione Procura na lista suspensa Tipo de Fórmula, clique para selecionar Localizar o valor mais frequentemente ocorrente na caixa de lista Selecione uma fórmula, especifique a lista ou coluna na caixa Intervalo e clique no botão OK. Veja a imagem:

De seguida, verá que o valor mais comum/frequente foi encontrado e colocado na célula selecionada. Veja a imagem:

Com o seguinte código VBA, pode não só encontrar o valor que ocorre com maior frequência, como também contar o número de vezes que a palavra mais comum aparece.

1. Mantenha premidas as teclas ALT + F11, o que abrirá a janela Microsoft Visual Basic para Aplicações.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Encontrar o valor mais comum de uma lista

Sub FindFrequency()
'Update 20140326
Dim Rng As Range
Dim WorkRng As Range
Set dic = CreateObject("scripting.dictionary")
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xMax = 0
xOutValue = ""
For Each Rng In WorkRng
    xValue = Rng.Value
    If xValue <> "" Then
        dic(xValue) = dic(xValue) + 1
        xCount = dic(xValue)
        If xCount > xMax Then
            xMax = xCount
            xOutValue = xValue
        End If
    End If
Next
MsgBox "The most common value is: " & xOutValue & " Appeared " & xMax & " Times"
End Sub

3. Em seguida, prima a tecla F5 para executar este código e irá surgir uma caixa de aviso a solicitar-lhe que selecione o intervalo que pretende utilizar. Veja a imagem:

4. Depois, clique em OK e irá obter uma caixa de aviso que apresenta a seguinte informação: