Como encontrar o valor mais comum (número ou string de texto) em uma lista no Excel?

Geralmente, podemos aplicar a função MODO (=MODO(A1:A16)) para encontrar o número mais comum em um intervalo. Mas esta função MODO não funciona com strings de texto. Para extrair o valor que ocorre com mais frequência, você pode aplicar a seguinte fórmula matricial. Por favor, faça o seguinte:

Em uma célula em branco ao lado dos dados, insira a fórmula abaixo e pressione as teclas Shift + Ctrl + Enter juntas.

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

A fórmula é muito complicada para lembrar? Salve a fórmula como uma entrada de AutoTexto para reutilizá-la com apenas um clique no futuro! Leia mais…     Teste grátis

Se você tiver o Kutools para Excel instalado, poderá facilmente aplicar sua fórmula Localizar valor mais comum para obter rapidamente o valor mais frequente de uma lista ou coluna no Excel.

1. Selecione uma célula em branco onde você 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, escolha Procurar a partir do Tipo de Fórmula lista suspensa, clique para selecionar Localizar o valor mais comum no Escolher uma fórmula caixa de listagem, especifique a lista/coluna no Intervalo caixa, e clique no botão Ok . Veja a captura de tela:

E então você verá o valor mais comum/frequente encontrado e colocado na célula selecionada. Veja a captura de tela:

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

1. Mantenha pressionadas as teclas ALT + F11, e isso abrirá a janela Microsoft Visual Basic for Applications.

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

Código VBA: Encontre o valor mais comum em 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, pressione F5 para executar este código, e uma caixa de prompt aparecerá para lembrá-lo de selecionar o intervalo que deseja usar. Veja a captura de tela:

4. E então clique OK, você receberá uma caixa de prompt que exibe as seguintes informações: