Come trovare i duplicati in Excel Visual Basic

Passaggio 1

Aprire il file di Microsoft Excel 2010 che contiene i dati che si desidera controllare per i duplicati. Quando il foglio di calcolo si apre, premere i tasti "Alt" e "F11" per caricare la console VBA.

Passaggio 2

Fai clic sul foglio di calcolo sul lato sinistro della schermata VBA. Muovi il mouse su "Inserisci" e scegli l'opzione "Modulo". Fai doppio clic sul nuovo modulo che appare poche righe sotto il foglio di calcolo.

Passaggio 3

Posiziona il cursore nello spazio vuoto sul lato destro dello schermo. Scrivi "Sub Dupecheck ()" e premi Invio. VBA inserirà automaticamente il comando "End Sub" per te.

Passaggio 4

Posiziona il cursore sulla linea tra i comandi "Sub" e "End Sub". Inserisci le seguenti righe di codice:

Dim x As Long Dim endrow As Long endrow = Range ("A50000"). End (xlUp) .Row

Questo codice crea due variabili, "EndRow" e "x", quindi imposta il valore di "EndRow". Questo codice cercherà 50 mila righe in una singola colonna, ma se devi cercare tra più righe, aumenta da 50 mila a qualsiasi numero di cui hai bisogno. Questo codice è progettato anche per cercare nella colonna "A", ma devi solo cambiare "A" per qualsiasi lettera nella colonna che ti serve.

Passaggio 5

Posiziona il cursore sulla seguente riga e scrivi il seguente codice:

Per x = endrow a 1 passaggio -1 Se Application.WorksheetFunction.CountIf (intervallo ("A1: A" & x), intervallo ("A" e x) .Text)> 1 Quindi intervallo ("A" e x). Interior.Color = RGB (200, 160, 35) End If Next x

Questo è il cuore del codice che cercherà attraverso ogni cella e determinerà se esiste una cella identica sopra di essa. Se trova un duplicato, trasformerà il fondo della cella di un colore giallo. È possibile modificare tutte le istanze di "A" se si lavora in una colonna diversa. Puoi anche cambiare i tre numeri dopo "Interior.color" per cambiare il colore in cui la cella verrà convertita.

Passaggio 6

Fare clic su "x" nell'angolo in alto a destra dello schermo per chiudere la console VBA. Fai clic sulla scheda "Sviluppatore" nella parte superiore dello schermo. Trova il pulsante "Macro" sul lato sinistro del nastro e fai clic su di esso. Seleziona "Dupecheck" dall'elenco delle macro disponibili e fai clic su "Esegui". Excel evidenzierà ogni duplicato nella colonna di dati.