È possibile utilizzare i seguenti metodi per confrontare i dati in due colonne del foglio di lavoro di Microsoft Excel e trovare voci duplicate.
Metodo 1: utilizzare una formula del foglio di lavoro
-
Avviare Excel.
-
In un nuovo foglio di lavoro, inserire i seguenti dati a titolo di esempio (lasciare la colonna B vuota):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
Digitare la seguente formula nella cella B1:
=SE(VAL.ERRORE(CONFRONTA(A1,$C$1:$C$5,0)),"",A1) -
Selezionare la cella da B1 a B5.
-
In Excel 2007 e versioni successive di Excel, selezionare Riempimento nel gruppo Modifica, quindi selezionare Giù.
I numeri duplicati vengono visualizzati nella colonna B, come nell'esempio seguente:A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
Metodo 2: utilizzare una macro di Visual Basic
Avviso: Microsoft fornisce esempi di programmazione a titolo puramente illustrativo, senza alcuna garanzia espressa o implicita. Ciò include, a titolo esemplificativo e non esaustivo, le garanzie implicite di commerciabilità o idoneità a uno scopo particolare. Questo articolo presuppone che si abbia familiarità con il linguaggio di programmazione oggetto della dimostrazione e con gli strumenti utilizzati per la creazione e il debug delle procedure. I tecnici dell'assistenza Microsoft possono aiutare a spiegare la funzionalità di una particolare procedura. Tuttavia, non modificheranno questi esempi per fornire funzionalità aggiuntive o costruire procedure che soddisfino i vostri requisiti specifici.
Per utilizzare una macro di Visual Basic per confrontare i dati di due colonne, utilizzate i passaggi dell'esempio seguente:
-
Avviare Excel.
-
Premere ALT+F11 per avviare l'editor di Visual Basic.
-
Nel menuInserisci, selezionare Modulo.
-
Immettere il seguente codice in un foglio modulo:
Sub Find_Matches() Dim CompareRange As Variant, x As Variant, y As Variant ' Set CompareRange equal to the range to which you will ' compare the selection. Set CompareRange = Range("C1:C5") ' NOTE: If the compare range is located on another workbook ' or worksheet, use the following syntax. ' Set CompareRange = Workbooks("Book2"). _ ' Worksheets("Sheet2").Range("C1:C5") ' ' Loop through each cell in the selection and compare it to ' each cell in CompareRange. For Each x In Selection For Each y In CompareRange If x = y Then x.Offset(0, 1) = x Next y Next x End Sub
-
Premere ALT+F11 per tornare a Excel.
-
Inserire i seguenti dati a titolo di esempio (lasciare vuota la colonna B):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
-
Selezionare la cella da A1 ad A5.
-
In Excel 2007 e versioni successive di Excel, selezionare la scheda Developer, quindi selezionare Macro nel gruppo Codice.
Nota: Se non viene visualizzata la scheda Developer, potrebbe essere necessario attivarla. A tale scopo, selezionare File > Opzioni > Personalizza barra multifunzione, quindi selezionare la scheda Developer nel riquadro di personalizzazione sul lato destro.
-
Fare clic su Find_Matches, quindi su Esegui.
I numeri duplicati vengono visualizzati nella colonna B. I numeri corrispondenti verranno inseriti accanto alla prima colonna, come illustrato di seguito:A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0