Como remover duplicatas, mas manter a primeira ocorrência no Excel?
Digamos que há uma lista de valores na sua planilha que contém algumas duplicatas, e agora você precisa remover as duplicatas, mas manter a primeira linha onde o valor duplicado é encontrado. Neste artigo, mostraremos dois métodos para remover duplicatas, mantendo a primeira ocorrência no Excel.
Remover duplicatas, mas manter a primeira ocorrência com código VBA
Remover duplicatas, mas manter a primeira ocorrência com Kutools para Excel
Remover duplicatas, mas manter a primeira ocorrência com código VBA
Você pode executar o seguinte código VBA para remover duplicatas, mas manter a primeira ocorrência em uma coluna.
1. Pressione 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. Em seguida, copie e cole o código abaixo na janela de código.
Código VBA: remover duplicatas, mas manter a primeira ocorrê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. Pressione a tecla F5 para executar o código. Na caixa de diálogo KutoolsforExcel que aparece, selecione o intervalo do qual deseja remover as duplicatas e clique no botão OK. Veja a captura de tela:
Agora você pode ver que todas as linhas duplicadas, exceto os primeiros registros, foram removidas do intervalo da coluna selecionada. Veja a captura de tela:
Remover duplicatas, mas manter a primeira ocorrência com Kutools para Excel
Além do código VBA, você pode usar o utilitário Selecionar Células Duplicadas e Únicas do suplemento Kutools para Excel para remover facilmente duplicatas, mas manter as primeiras ocorrências no Excel.
1. Selecione o intervalo do qual deseja remover duplicatas, mas manter 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 Duplicados (Exceto o primeiro), e depois clique no botão OK. Veja a captura de tela:
3. Na próxima caixa de diálogo Selecionar Células Duplicadas & Únicas, clique em OK.
4. Agora as duplicatas estão selecionadas, exceto as primeiras ocorrências, pressione a tecla Excluir para remover as duplicatas selecionadas.
Observação: Se você quiser excluir as linhas duplicadas, basta marcar a opção Selecionar linhas inteiras na caixa de diálogo Selecionar Células Duplicadas & Únicas e aplicar o comando Excluir no menu de clique direito para remover as linhas duplicadas inteiras.
Se você deseja experimentar este utilitário gratuitamente (30 dias), clique para baixá-lo e, em seguida, vá aplicar a operação de acordo com as etapas acima.
Remover duplicatas, mas manter a primeira ocorrência com Kutools para Excel
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins