Como remover duplicatas, mas manter a primeira instância no Excel?
Digamos que haja uma lista de valores em sua planilha que contém algumas duplicatas, agora, você precisa remover as duplicatas, mas manter a primeira linha onde o valor duplicado foi encontrado. Neste artigo, mostraremos dois métodos para remover duplicatas, mas manter a primeira instância no Excel.
Remova duplicatas, mas mantenha a primeira instância com o código VBA
Remova duplicatas, mas mantenha a primeira instância com o Kutools para Excel
Remova duplicatas, mas mantenha a primeira instância com o código VBA
Você pode executar o código VBA abaixo para remover duplicatas, mas manter a primeira instância em uma coluna.
1. Pressione outro + F11 para abrir o Microsoft Visual Basic para Aplicações caixa de diálogo.
2. No Microsoft Visual Basic para Aplicações caixa de diálogo, clique em inserção > Módulo. Em seguida, copie e cole o código abaixo na janela de código.
Código VBA: remova duplicatas, mas mantenha 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 Sub
3. Pressione F5 chave para executar o código. No surgimento Kutools para Excel caixa de diálogo, selecione o intervalo que deseja remover duplicatas e clique no OK botão. Veja a imagem:
Agora você pode ver todas as linhas duplicadas, exceto os primeiros registros são removidos do intervalo de coluna selecionado. Veja a imagem:
Remova duplicatas, mas mantenha a primeira instância com o Kutools para Excel
Ao lado do código VBA, você pode usar o Selecione Células Duplicadas e Únicas utilidade de Kutools for Excel add-in para remover facilmente duplicatas, mas manter as primeiras instâncias no Excel.
Antes de aplicar Kutools for Excel, Por favor baixe e instale primeiro.
1. Selecione o intervalo que deseja remover duplicatas, mas mantenha as primeiras instâncias. Então clique Kutools > Selecionar > Selecione Células Duplicadas e Únicas.
2. No Selecione Células Duplicadas e Únicas caixa de diálogo, selecione o Duplicados (exceto o primeiro) opção e, em seguida, clique no OK botão. Veja a imagem:
3. No seguinte Selecione Células Duplicadas e Únicas caixa de diálogo, clique em OK.
4. Agora as duplicatas estão selecionadas, exceto as primeiras instâncias, pressione o Apagar para remover as duplicatas selecionadas.
Note: Se você deseja excluir as linhas duplicadas, você só precisa verificar Selecione linhas inteiras opção no Selecione Células Duplicadas e Únicas caixa de diálogo e, em seguida, aplique o Apagar do menu do botão direito para remover todas as linhas duplicadas.
Se você quiser ter um teste gratuito (30 dias) deste utilitário, por favor clique para fazer o downloade, em seguida, aplique a operação de acordo com as etapas acima.
Remova duplicatas, mas mantenha a primeira instância com o Kutools para Excel
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!