Como verificar se existe valores duplicados no Excel

Neste artigo mostrarei uma forma interessante de como achar Dados Duplicados em uma sequência de células, porém, não é o único, mas ajuda. Veja na Figura 1 como será feito.

Verificação por função
Figura 1. Verificação por função
  • Na Coluna B coloquei algumas datas inclusive duplicadas;
  • Na Coluna C foram simulados alguns nomes de clientes;
  • Na Coluna D a Data e o Nome de cada cliente foram concatenados (unidas) com a Função:
     =B2&C2
    . Onde & serve para concatenar (unir); e
  • Na Coluna F foi feito a Função do Status, para saber se há duplicação, veja a Função:
    =SE(CONT.SE($D$2:D2;D2)>1;"Duplicado";"Único")
    .

Validação de Dados

Na parte anterior foi visto uma forma de se encontrar Duplicados pela função, porém, nesta será pela Validação de Dados, veja na Figura 2.

Verificação por função
Figura 2. Verificação por validação de dados

Assim que a pessoa digitar na célula que está com as bordas vermelhas, aparecerá uma mensagem dizendo que a o Pedido já existe, para isso antes de qualquer coisa selecione todas as células da seqüência neste caso da célula B3:B11, Clique no Menu Dados - Opção Validação.

Assim que abrir a Caixa de Validação de Dados, em Permitir escolha Personalizado e em Fórmula digite a seguinte fórmula:

= CONT.SE(B$3:B$11; B3) = 1

Explicação da Função: (Essa função quis dizer que caso o valor que for digitado da B3 para baixo for igual a 1, isso quer dizer caso já exista, não será possível inserir o valor.)

Depois de ter configurado que os valores não podem ser Duplicados, vamos configurar uma Mensagem de Erro, para isso veja a Figura 3.

Definição de mensagem personalizada
Figura 3. Definição de mensagem personalizada

Veja que para configurar uma Mensagem de erro, deve-se clicar a Guia - Alerta de Erro, depois digite o Título e a Mensagem de Erro como achar melhor, e clique em OK.

Pronto, Validação de Dados configurada. Veja agora na Planilha presente na Figura 4.

Definição de mensagem personalizada
Figura 4. Exibição da mensagem personalizada

Este é mais um exemplo de como impedir que digitem alguma informação Duplicada, caso tenha alguma outra forma, podem me enviar.

Formatação Condicional

Anteriormente foram vistos outras duas formas de se encontrar Duplicados pela função, porém, aqui será pela Formatação Condicional, como vemos na Figura 5.

Célula com formatação condicional
Figura 5. Célula com formatação condicional

Assim que a pessoa digitar na célula que está com as bordas vermelhas e pressionar a tecla ENTER, o valor ficará com a cor Laranja indicando que o já existe, para isso antes de qualquer coisa selecione todas as células da seqüência neste caso da célula B3:B11, Clique no Menu Formatar - Opção Formatação Condicional, como mostra a Figura 6.

Definição da formatação condicional
Figura 6. Definição da formatação condicional

Assim que abrir a Caixa de Formatação Condicional, configure conforme a figura acima, em Condição 1 a opção A Fórmula é e digite ao lado a seguinte Fórmula:

=CONT.SE($B$3:$B$11; B3) = 1

Explicação da Fórmula: (Essa função quis dizer que caso o valor que for digitado da B3 para baixo for igual a 1, isso quer dizer caso já exista, não será possível inserir o valor.)

Depois de ter configurado que os valores não podem ser Duplicados, vamos fazer os testes. Clique no Botão OK e pronto, a tabela já pode ser utilizada e na Figura 11 você confere como fica o resultado caso seja Repetido.

Células formatadas acusando erro
Figura 7. Células formatadas acusando erro

Este foi mais um exemplo de como Impedir a Digitação de Dados Duplicados, caso tenham alguma outra forma, podem me enviar.

VBA

Esta é a quarta (e última) parte desta série, nas partes anteriores foram vistos outras duas formas de se encontrar Duplicados pela função, porém, neste será por Programação VBA, conforme vemos na Figura 8.

Células formatadas acusando erro
Figura 8. Células onde serão inseridos valores duplicados

Em uma nova planilha, abra o editor Microsoft Visual Basic (Aperte Alt + F11).

No lado esquerdo da janela que se abrirá, clique duas vezes na planilha onde você deseja aplicar o código (neste exemplo estarei aplicando na Plan3). Observe a Figura 9.

Função em VBA para verificação de valores duplicados
Figura 9. Função em VBA para verificação de valores duplicados

Assim que clicar duas vez na Planilha desejada, copie o código abaixo na área branca a direita como na figura acima:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next
Dim nLinComp As Integer, nLinFim As Integer " => declara nLinha como Inteiro
Dim Resp As String
nLinFim = 3 "=> define qual será a linha onde inicia-se os dados para achar o final da lista
Do While Not IsEmpty(Cells(nLinFim, 2)) "=> irá comparar enquanto a célula não estiver vazia
nLinFim = nLinFim + 1 "=> adiciona uma linha para baixo
Loop
nLinComp = 3 "=> define qual será a linha que inicia-se os dados para a comparação dos dados
Do While nLinComp <= nLinFim - 2 "=> irá fazer enquanto tiver Valor digitado
If Cells(nLinFim - 1, 2).Value = Cells(nLinComp, 2).Value Then "=> se o último Valor digitado for repetido, irá para o processo abaixo
Cells(nLinFim - 1, 2).Activate "=> ativa a célula do Valor digitado incorretamente.
Resp = MsgBox("O Valor " & """ & ActiveCell & """ & " já consta na planilha." & _
vbCrLf & vbCrLf & "Este Valor será Excluido !", vbCritical, " Valor !") "=> exibe a mensagem
Cells(nLinFim - 1, 2).ClearContents "=> Exclui o Valor digitado caso seja repetido
Exit Sub
Else
nLinComp = nLinComp + 1 "=> compara o próximo Valor da lista
End If
Loop
Cells(nLinComp + 1, 2).Activate "=> Se não encontrar mais valores repetidos, ativa a célula subsequente
End Sub

Observação: O texto que está em verde, é um texto de comentário, isso é não será executado pela Linguagem VBA, para colocar algum texto como comentário é só colocar o acento Apóstrofe (‘) antes do texto que deseja comentar.

Agora vamos fazer o teste para ver como fica o resultado na planilha. Observe a Figura 10.

Erro gerado pela existência de valores duplicados
Figura 10. Erro gerado pela existência de valores duplicados

Após clicar no Botão OK, o resultado será o mesmo da Figura 11.

Erro gerado pela existência de valores duplicados
Figura 11. Célula com valor duplicado foi limpa

O Valor repetido é excluído automaticamente.

Caso alguém tenha uma outra forma de verificar se existem valores duplicados, é só me enviar.

Links Úteis

  • Curso de Xamarin: Primeiros passos:
    O Xamarin é uma plataforma para desenvolvimento de aplicações móveis dentro da plataforma .NET, utilizando o C#.
  • Curso de Lógica de Programação:
    Neste curso veremos uma introdução a algoritmos, utilizando como linguagem de apoio o Portugol. Para isso, abordaremos assuntos como descrição narrativa, fluxogramas e pseudocódigos, fundamentais para quem está iniciando na programação.
  • Curso de HTML5:
    Neste curso de HTML 5 veremos o que desenvolvimento da linguagem HTML (HyperText Markup Language) ficou parada na versão 4 desde 1999. Durante esse período, a W3C se focou em linguagens como XML (Extensible Markup Language) e SVG (Scalable Vector Graphics - gráficos vetoriais em navegadores).
  • Acomo aprender PHP:
    Neste Guia de Consulta você encontrará todo o conteúdo que precisa para aprender PHP, uma linguagem de programação amplamente utilizada para a construção de aplicações web.

Saiba mais sobre PHP ;)