Como remover duplicatas, mantendo apenas a primeira ocorrência no Excel?
Imagine que tem uma lista de valores na sua folha de cálculo que contém alguns duplicados e que agora precisa de eliminar os duplicados, mantendo a primeira linha em que o valor duplicado é encontrado. Neste artigo, mostramos-lhe dois métodos para remover duplicados, mas manter a primeira instância no Excel.
Remover duplicatas, mas mantendo a primeira instância com código VBA
Remover duplicatas, mas mantendo a primeira instância com Kutools para Excel
Remover duplicatas, mas mantendo a primeira instância com código VBA
Pode executar o código VBA abaixo para remover duplicatas, mantendo apenas a primeira ocorrência numa coluna.
1. Prima Alt + F11 para abrir a caixa de diálogo Microsoft Visual Basic for Applications.
2. Na caixa de diálogo Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Depois, copie e cole o código abaixo na janela de código.
Código VBA: Remover duplicatas, mas mantendo a primeira instância
Sub TrimExcessSpaces()
Dim Rng As Range
Dim WorkRng As Range
Dim dic As Variant
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)
Set WorkRng = WorkRng.Columns(1)
For Each Rng In WorkRng.Cells
dic(Rng.Value) = ""
Next
WorkRng.ClearContents
WorkRng.Range("A1").Resize(UBound(dic.Keys) + 1, 1) = Application.WorksheetFunction.Transpose(dic.Keys)
End Sub3. Prima a tecla F5 para executar o código. Na caixa de diálogo Kutools for Excel que surge, selecione o intervalo do qual pretende remover duplicatas e, em seguida, clique no botão OK. Veja a imagem:
Agora pode ver que todas as linhas duplicadas, exceto os primeiros registos, foram removidas do intervalo de colunas selecionado. Veja a imagem:
Remover duplicatas, mas mantendo a primeira instância com Kutools para Excel
Para além do código VBA, pode utilizar a utilidade Selecionar Células Duplicadas/Únicas do suplemento Kutools para Excel para remover facilmente duplicatas, mantendo apenas as primeiras ocorrências no Excel.
1. Selecione o intervalo do qual pretende remover duplicatas, mantendo as primeiras ocorrências. Em seguida, clique em Kutools > Selecionar > Selecionar Células Duplicadas/Únicas.
2. Na caixa de diálogo Selecionar Células Duplicadas/Únicas, selecione a opção Valores Duplicados (Excluir a primeira correspondência) e, em seguida, clique no botão OK. Veja a imagem:
3. Na caixa de diálogo seguinte Selecionar Células Duplicadas/Únicas, clique em OK.
4. Agora, os duplicados estão selecionados, exceto as primeiras ocorrências; prima a tecla Eliminar para remover os duplicados selecionados.
Nota: Se pretender eliminar as linhas duplicadas, basta marcar a opção Selecionar Linha Inteira na caixa de diálogo Selecionar Células Duplicadas/Únicas e, em seguida, aplicar o comando Eliminar do menu de clique direito para remover toda a linha duplicada.
Se pretender experimentar gratuitamente esta utilidade durante 30 dias, clique para a transferir e, em seguida, siga os passos indicados acima.
Remover duplicatas, mas mantendo a primeira instância com Kutools para Excel
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos