Contar Dados Duplicados no Excel

Na coluna A, com 10 cidades listadas (A2 a A11), algumas cidades são repetidas. Como contar o numero de cidades diferentes?

Exemplo:

Rio – São Paulo – Tubarão – São Paulo – Rio – Rio – São Paulo – Tubarão – São Paulo – Tubarão

O resultado que deverá aparecer é 3

Tenho uma aula exatamente sobre isso, depois olhe o link abaixo, mas, resumindo, crie uma função que faça isso chamada ContaQuantosDiferentes.

Sintaxe: ContaQuantosDiferentes(intervalo)

Exemplo – se de A2 a A11 estão as cidades a serem listadas, use ContaQuantosDiferentes(A2:A11)

conta quantos diferentes excel

Como fazer?

a) No EXCEL, clique no atalho ALT + F11 (deixe a tecla ALT pressionada e pressione a seguir a tecla F11) ou entre no Menu Ferramentas na opção Macro e escolha a opção Editor do Visual Basic

b) A janela que abre é o Editor do Microsoft Visual Basic do EXCEL (disponível no MS-Office para o Word, Excel, Out Look, etc.). Nesta janela, no menu Inserir, selecione a opção Módulo

inserir modulo

c) Na janela que abre, copie e cole o código abaixo:

Function ContaQuantosDiferentes(ByVal range1 As Range) As Integer

    Dim conta As Integer
    conta = 0
    Dim Aux()

    ReDim Aux(range1.Rows.Count)

    For i = 1 To range1.Rows.Count
        Aux(i) = range1.Cells(i, 1)
    Next i

    For i = 1 To range1.Rows.Count - 1
        For j = i + 1 To range1.Rows.Count
            If Aux(i) = Aux(j) Then
                Aux(j) = ""
            End If
        Next j
    Next i

    For i = 1 To range1.Rows.Count
        If Aux(i) <> "" Then
            conta = conta + 1
        End If
    Next i

    ContaQuantosDiferentes = conta

End Function

d) Agora volte ao Excel e cole em alguma célula a função ContaQuantosDiferentes(A2:A11), dê Enter e pronto!

Para maiores detalhes, consulte:

http://www.naotemnome.com.br/fapa/_lista21/valoresduplicados/valoresduplicados.html