Come rimuovere i duplicati ma mantenere la prima istanza in Excel?
Diciamo, c'è un elenco di valori nel tuo foglio di lavoro che contiene alcuni duplicati, ora, devi rimuovere i duplicati ma mantenere la prima riga in cui si trova il valore duplicato. In questo articolo, ti mostreremo due metodi per rimuovere i duplicati ma manterremo la prima istanza in Excel.
Rimuovi i duplicati ma mantieni la prima istanza con il codice VBA
Rimuovi i duplicati ma mantieni la prima istanza con Kutools per Excel
Rimuovi i duplicati ma mantieni la prima istanza con il codice VBA
Puoi eseguire il codice VBA di seguito per rimuovere i duplicati ma mantenere la prima istanza in una colonna.
1. Stampa altro + F11 per aprire il Microsoft Visual Basic, Applications Edition la finestra di dialogo.
2. Nel Microsoft Visual Basic, Applications Edition finestra di dialogo, fare clic inserire > Moduli. Quindi copia e incolla il codice seguente nella finestra del codice.
Codice VBA: rimuovi i duplicati ma mantieni la prima istanza
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. Stampa F5 chiave per eseguire il codice. Nel spuntare Kutools per Excel finestra di dialogo, selezionare l'intervallo in cui si desidera rimuovere i duplicati, quindi fare clic su OK pulsante. Vedi screenshot:
Ora puoi vedere tutte le righe duplicate tranne i primi record rimossi dall'intervallo di colonne selezionato. Vedi screenshot:
Rimuovi i duplicati ma mantieni la prima istanza con Kutools per Excel
Oltre al codice VBA, puoi usare il file Seleziona Celle duplicate e uniche utilità di Kutools for Excel componente aggiuntivo per rimuovere facilmente i duplicati ma mantenere le prime istanze in Excel.
Prima di applicare Kutools for Excel, Per favore scaricalo e installalo prima.
1. Selezionare l'intervallo in cui si desidera rimuovere i duplicati ma mantenere le prime istanze. Quindi fare clic su Kutools > Seleziona > Seleziona Celle duplicate e uniche.
2. Nel Seleziona Celle duplicate e uniche finestra di dialogo, selezionare il Duplicati (tranne il primo) opzione, quindi fare clic su OK pulsante. Vedi screenshot:
3. Di seguito Seleziona Celle duplicate e uniche finestra di dialogo, fare clic OK.
4. Ora i duplicati sono selezionati tranne le prime istanze, premere il tasto Elimina tasto per rimuovere i duplicati selezionati.
Note:: Se vuoi eliminare le righe duplicate, devi solo controllare Seleziona intere righe opzione nel Seleziona Celle duplicate e uniche finestra di dialogo e quindi applicare il Elimina comando del menu di scelta rapida per rimuovere le intere righe duplicate.
Se desideri avere una prova gratuita (30 giorni) di questa utility, fare clic per scaricarlo, quindi andare ad applicare l'operazione secondo i passaggi precedenti.
Rimuovi i duplicati ma mantieni la prima istanza con Kutools per Excel
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- 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 della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!