In questo articolo, abbiamo creato una macro per evidenziare i valori duplicati.
I dati grezzi sono costituiti da diversi nomi di auto. Vogliamo evidenziare le voci duplicate.
Premi il pulsante "Evidenzia duplicato" per eseguire la macro ed evidenziare le voci duplicate.
Spiegazione logica
Abbiamo creato la macro "Check_Dups" per evidenziare le voci duplicate. Saranno evidenziati in colore rosso. Nella macro, controlliamo il conteggio di una voce particolare. Se è maggiore di 1, i dati verranno evidenziati.
Si prega di seguire sotto per il codice
Option Explicit Sub Check_Dups() 'Dichiarazione delle variabili Dim Cell As Variant Dim Source As Range 'Inizializzazione dell'intervallo di origine Set Source = Range("A9:A24") 'Rimozione di qualsiasi formattazione precedente dall'origine Source.Interior.Color = RGB(221, 235, 247) 'Ciclo di ogni cella nell'intervallo di origine per ogni cella in origine 'Verifica se il valore nella cella esiste già nell'intervallo di origine If Application.WorksheetFunction.CountIf(Source, Cell) > 1 Then 'Evidenziando i valori duplicati in rosso color Cell.Interior.Color = RGB(255, 0, 0) End If Next End Sub
Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook. Inoltre, puoi seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica