Come cercare i duplicati in Excel Visual Basic

Microsoft Excel 2010 è possibile evidenziare i valori duplicati utilizzando un comando pre -impostato la formattazione condizionale , ma se hai bisogno di trovare i duplicati utilizzando una macro , è possibile utilizzare Visual Basic, Applications Edition (VBA ) , che è integrato in Microsoft Excel . Mentre VBA non dispone di una funzione che trovare i duplicati , è possibile sfruttare la funzione CONTA.SE per scoprire quali cellule detengono informazioni duplicate . Istruzioni
1

Aprire il file di Microsoft Excel 2010 che contiene i dati che si desidera controllare i duplicati . Quando il foglio di calcolo viene su , premi il tasto " Alt " e " F11 " per caricare la console di VBA .
2

pulsante destro del mouse sul foglio di lavoro sul lato sinistro dello schermo VBA . Muovi il mouse su "Inserisci" e selezionare "Modulo ". Fare doppio clic sul nuovo modulo che compare poche righe sotto il foglio di lavoro .
3

Posizionare il cursore nello spazio bianco sul lato destro dello schermo . Digitare " Sub Dupecheck ( ) " e premere invio . VBA entrerà automaticamente il comando " End Sub " per voi .
4

Posizionare il cursore sulla riga tra le righe " Sub " e " End Sub " . Inserire 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 ", e quindi stabilisce il valore per " EndRow . " Questo codice cercherà attraverso 50.000 righe in una singola colonna , ma se avete bisogno di così guardare attraverso più linee , basta aumentare 50.000 a qualunque numero di cui avete bisogno. Questo codice è progettato anche per guardare attraverso colonna "A ", ma si può semplicemente cambiare " A" a qualsiasi colonna lettera di cui hai bisogno.
5

Posizionare il cursore sulla riga successiva e inserire il seguente codice :

Per x = EndRow A 1 passo -1

Application.WorksheetFunction.CountIf ( Range (" A1 : A" . & x ) , Range ( " A" & x ) Testo )

> 1 Then
Range (" A" & x ) . Interior.Color = RGB ( 200 , 160 , 35 ) per

End If

Prossimo x

Questo è il cuore del codice che guardare attraverso ogni cellula e determinare se una cella identica esiste al di sopra di esso. Se trova un duplicato , si trasformerà lo sfondo della cella di un colore giallo . È possibile modificare tutte le occorrenze di "A ", se si sta lavorando su una colonna diversa . È inoltre possibile modificare i tre numeri dopo " Interior.Color " per cambiare di che colore la cella si trasforma .
6

Fare clic sulla "X" in alto a destra dello schermo per chiudere la console di VBA . Fare clic sulla scheda "Sviluppatore " nella parte superiore dello schermo. Trova il pulsante " Macro " sul lato sinistro della barra multifunzione e fare clic su di esso. Selezionare " Dupecheck " dall'elenco delle macro disponibili e fare clic su "Esegui". Excel ora evidenziare ogni duplicato nella colonna dei dati .