Come rimuovere i duplicati mantenendo la prima occorrenza in Excel?

Supponiamo che ci sia una lista di valori nel tuo foglio di lavoro che contiene alcuni duplicati, ora devi rimuovere i duplicati ma mantenere la prima riga dove viene trovato il valore duplicato. In questo articolo, ti mostreremo due metodi per rimuovere i duplicati mantenendo la prima occorrenza in Excel.

Rimuovi i duplicati mantenendo la prima occorrenza con il codice VBA
Rimuovi i duplicati mantenendo la prima occorrenza con Kutools per Excel

Rimuovi i duplicati mantenendo la prima occorrenza con il codice VBA

Puoi eseguire il seguente codice VBA per rimuovere i duplicati mantenendo la prima occorrenza in una colonna.

1. Premi Alt + F11 per aprire la finestra di dialogo Microsoft Visual Basic for Applications.

2. Nella finestra di dialogo Microsoft Visual Basic for Applications, clicca su Inserisci > Modulo. Poi copia e incolla il codice sottostante nella finestra del codice.

Codice VBA: rimuovi i duplicati mantenendo la prima occorrenza

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. Premi il tasto F5 per eseguire il codice. Nella finestra di dialogo KutoolsforExcel che appare, seleziona l'intervallo da cui vuoi rimuovere i duplicati, quindi clicca sul pulsante OK. Vedi screenshot:

Ora puoi vedere che tutte le righe duplicate tranne i primi record sono state rimosse dall'intervallo della colonna selezionata. Vedi screenshot:

Rimuovi i duplicati mantenendo la prima occorrenza con Kutools per Excel

Oltre al codice VBA, puoi utilizzare l'utilità Seleziona celle duplicate & uniche di Kutools per Excel per rimuovere facilmente i duplicati mantenendo le prime occorrenze in Excel.

1. Seleziona l'intervallo da cui vuoi rimuovere i duplicati mantenendo le prime occorrenze. Poi clicca su Kutools > Seleziona > Seleziona celle duplicate & uniche.

2. Nella finestra di dialogo Seleziona celle duplicate & uniche, seleziona l'opzione Duplicati (Escludi la prima corrispondenza), quindi clicca sul pulsante OK. Vedi screenshot:

3. Nella successiva finestra di dialogo Seleziona celle duplicate & uniche, clicca su OK.

4. Ora i duplicati sono selezionati tranne le prime occorrenze, premi il tasto Elimina per rimuovere i duplicati selezionati.

Nota: Se desideri eliminare le righe duplicate, ti basta selezionare l'opzione Seleziona intere righe nella finestra di dialogo Seleziona celle duplicate & uniche, quindi applicare il comando Elimina dal menu contestuale per rimuovere le righe duplicate intere.

Rimuovi i duplicati mantenendo la prima occorrenza con Kutools per Excel