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 Sub

3. 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.

Remover duplicatas, mas manter a primeira ocorrência com Kutools para Excel