KutoolsforOffice — Un'unica soluzione, cinque potenti strumenti.Ottenere di più con meno sforzo.

Come rimuovere i duplicati in Excel mantenendo la prima occorrenza?

AutoreSiluvia Data di modifica

Immaginate di avere, nella vostra cartella di lavoro, un elenco di valori con alcuni duplicati. Ora dovete eliminarli, mantenendo però la prima riga in cui compare ciascun valore. In questo articolo vi illustreremo due metodi per rimuovere i duplicati in Excel, conservando sempre la prima occorrenza.

Rimuovi duplicati, ma mantenendo la prima occorrenza con codice VBA
Rimuovi duplicati, ma mantenendo la prima occorrenza con Kutools per Excel

Rimuovi duplicati, ma mantenendo la prima occorrenza con codice VBA

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

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

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

Codice VBA: Rimuovi duplicati, ma 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. Premere il tasto F5 per eseguire il codice. Nella finestra di dialogo KutoolsforExcel visualizzata, selezionare l'intervallo da cui rimuovere i duplicati e fare clic sul pulsante OK. Vedere lo screenshot:

codice VBA per selezionare l'elenco dati

Ora potete notare che tutti i record duplicati sono stati rimossi dall’intervallo di colonne selezionato, tranne la prima occorrenza. Vedere lo screenshot:

tutte le righe duplicate tranne i primi record sono state rimosse

Rimuovi duplicati, ma mantenendo la prima occorrenza con Kutools per Excel

Oltre al codice VBA, puoi utilizzare l’utilità Seleziona celle duplicate/uniche dell’add-in Kutools per Excel per rimuovere facilmente i duplicati, mantenendo le prime occorrenze in Excel.

Kutools per Exceloffre oltre 300 funzionalità avanzate per semplificare attività complesse, aumentando creatività ed efficienza.Integrato con funzionalità basate sull’IA, Kutools automatizza le attività con precisione, rendendo la gestione dei dati semplice e immediata.Informazioni dettagliate su Kutools per Excel...         Prova gratuita...

1. Seleziona l'intervallo da cui rimuovere i duplicati, mantenendo le prime occorrenze. Quindi fai clic su Kutools > Seleziona > Seleziona celle duplicate/uniche.

fai clic sulla funzione Seleziona celle duplicate e univoche di Kutools

2. Nella finestra di dialogo Seleziona celle duplicate/uniche, seleziona l'opzione Valori duplicati (Escludi la prima corrispondenza) e fai clic sul pulsante OK. Vedere lo screenshot:

seleziona l'opzione Duplicati (escluso il primo) nella finestra di dialogo

3. Nella finestra di dialogo successiva Seleziona celle duplicate/uniche, fai clic su OK.

viene visualizzata una finestra di avviso che indica quante celle sono state selezionate

4. Ora i duplicati (tranne la prima occorrenza) sono selezionati; premi il tasto Canc per rimuovere i duplicati selezionati.

premi il tasto Canc per rimuovere i duplicati selezionati

Nota: per eliminare le righe duplicate, seleziona l'opzione Seleziona Intera Riga nella finestra di dialogo Seleziona celle duplicate/uniche e poi usa il comando Elimina dal menu contestuale per rimuovere l’intera riga duplicata.

Se desidera provare gratuitamente (30 giorni) questa utility, faccia clic qui per scaricarla, quindi segua la procedura illustrata nei passaggi sopra.

Rimuovi duplicati, ma mantenendo la prima occorrenza con Kutools per Excel

 

Migliori Strumenti per la Produttività in Office

🤖KUTOOLS AI Assistente: Rivoluziona Analisi dei dati in base a:Esecuzione Intelligente   |  Genera Codice|  Crea formule personalizzate  |  Analizza Dati e Genera Grafici|  Richiama Funzioni avanzate…
Funzionalità Popolari:Trova, Evidenzia o Contrassegna Duplicati   |  Elimina righe vuote   |  Combinare Colonne o Celle senza Perdere Dati   |   Arrotondamento senza usare la formula...
Super RICERCA.VERT:VLookup con Criteri Multipli  |  VLookup con Valori Multipli  |   VLookup tra Fogli Multipli   |   Corrispondenza approssimativa....
Elenco a discesa avanzato:Crea Rapidamente un Elenco a Discesa   |  Elenco a Discesa Dipendente   |  Elenco a Discesa con Selezione Multipla....
Gestione Colonne:Aggiungi un Numero Specifico di Colonne|Sposta Colonne|Attiva/Disattiva lo Stato di Visibilità delle Colonne Nascoste|Confronta Intervalli e Colonne...
Funzionalità in Evidenza:Attenzione della griglia   |  Visualizzazione Design   |Barra delle formule avanzata   | Gestione Cartelle di Lavoro e Fogli   |  Biblioteca di risorse(Testo Automatico)|  Selettore di Date   |  Unisci fogli di lavoro  |  Crittografa/Decrittografa celle   | Invia Email da Lista   |  Super Filtri   |   Filtro speciale(Filtra celle con testo in grassetto/corsivo/barrato...) ...
Principali Set di Strumenti 15:12 Strumentiper il Testo(Aggiungi testo,Elimina Caratteri Specifici, ...)|   50+Tipidi Grafico(Diagramma di Gantt, ...)|   40+ Formule Pratiche(Calcola l'età in base alla data di nascita, ...)|   19 Strumentidi Inserimento(Inserisci Codice QR,Inserisci Immagine dal Percorso, ...)|   12 Strumentidi Conversione(Converti in parole,Conversione del tasso di cambio, ...)|   7 StrumentiUnisci e Dividi(Unione avanzata righe,Dividi celle, ...)|... e molto altro
Usa Kutools nella tua lingua preferita – supporta inglese, spagnolo, tedesco, francese, cinese e 40+ altre!

Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...

Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
  • Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!

Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.

Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.

ExcelWordOutlookTabsPowerPoint
  • Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
  • Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
  • Funziona meglio insieme— produttività ottimizzata tra le app di Office
  • Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
  • Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi