Skip to main content

Kutools per Office — Una Suite. Cinque Strumenti. Ottieni di Più.

Come rimuovere i duplicati mantenendo la prima occorrenza in Excel?

Author Siluvia Last modified

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:

vba code to select the data list

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

all duplicate rows except the first records are removed

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.

Kutools per Excel offre oltre 300 funzionalità avanzate per semplificare compiti complessi, aumentando creatività ed efficienza. Integrato con capacità di intelligenza artificiale, Kutools automatizza le attività con precisione, rendendo la gestione dei dati senza sforzo. Informazioni dettagliate su Kutools per Excel... Prova gratuita...

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

clcik Select Duplicate & Unique Cells feature of kutools

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

select the Duplicates (Except 1st one) option in the dialog box

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

a prompt box popps to remind how many cells are selected

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

press the Delete key to remove the selected duplicates

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.

  Se desideri provare gratuitamente (30-giorno) questa utility, fai clic per scaricarla e poi vai ad applicare il calcolo seguendo i passaggi sopra indicati.

Rimuovi i duplicati mantenendo la prima occorrenza con Kutools per Excel

 

I migliori strumenti per la produttività in Office

🤖 Kutools AI Aide: Rivoluziona l’analisi dei dati grazie a: Esecuzione intelligente | Genera codice | Crea formule personalizzate | Analizza dati e crea grafici | Attiva Funzioni avanzate…
Funzionalità più usate: Trova, evidenziazione o contrassegna duplicati | Elimina righe vuote | Unisci colonne o celle senza perdere dati | Arrotonda senza formula...
Super RICERCA.VERT: Ricerca VERT per criteri multipli | Ricerca VERT per valori multipli | Ricerca su più fogli | Corrispondenza approssimativa...
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa | Elenco a discesa dipendente | Elenco a discesa multi-selezione...
Gestore colonne: Aggiungi un numero specifico di colonne | Sposta colonne | Cambia stato di visibilità delle colonne nascoste | Confronta intervalli & colonne...
Funzionalità in primo piano: Attenzione della griglia | Visualizzazione di progettazione | Barra delle formule avanzata | Gestore di cartelle di lavoro & fogli | Libreria AutoText | Selettore di data | Unisci dati | Crittografa/Decrittografa celle | Invia Email per elenco | Super Filtri | Filtro speciale (filtra grassetto/corsivo/barrato...)...
Top15 strumenti:12 strumenti Testo (Aggiungi testo, Elimina Caratteri Specifici, ...) |50+ tipi di grafico (Diagramma di Gantt, ...) |40+ formule pratiche (Calcola letà in base alla data di nascita, ...) |19 strumenti di inserimento (Inserisci codice QR, Inserisci Immagine da percorso, ...) |12 strumenti di conversione (Converti in parole, Conversione valuta, ...) |7 strumenti Unione & Dividi (Unione avanzata righe, Dividi celle, ...) | ... e altro ancora
Usa Kutools nella lingua che preferisci – supporta Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre lingue!

Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...

Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice

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

Tutti gli add-in Kutools. Un solo programma di installazione

La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.

Excel Word Outlook Tabs PowerPoint
  • Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
  • Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
  • Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
  • Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
  • Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in