Una voce duplicata in Microsoft Excel è una voce in una colonna o riga che corrisponde a altre voci nella stessa colonna o riga. Si consiglia di rimuovere queste voci duplicate per stringere i vostri dati, ma non puoi farlo manualmente, soprattutto se si hanno centinaia di celle di dati. Purtroppo, se si lavora in Microsoft Office Excel, in particolare Excel 2002 ed Excel 2003, rimozione di voci duplicate in colonne o righe automaticamente non è evidente.

Istruzioni

Costruire una Macro per rimuovere i duplicati primi di colonna

1

Individuare strumenti sulla barra degli strumenti e verso il basso per Macro. A destra, trovare l'Editor di Visual Basic e fare clic su di esso. Una volta in Visual Basic Editor, trovare l'elenco a discesa che consente di creare un Form utente, il modulo o il modulo di classe. Scegliere "Modulo."

2

Copiare e incollare quanto segue nella casella di modifica che si apre:

Sub DelDups_OneList()
Dim iListCount As Integer
Dim iCtr As Integer
' Disattivare l'aggiornamento dello schermo per accelerare la macro.
Application. ScreenUpdating = False
' Ottenere il conteggio dei record per la ricerca attraverso.
iListCount = Sheets("Sheet1"). Range("a1:A100"). Rows. Count
Sheets("Sheet1"). Range("a1"). Selezionare
' Loop fino alla fine dei record.
Do Until ActiveCell = ""
' Loop through record.
For iCtr = 1 To iListCount

' Don't compare against yourself.
' To specify a different column, change 1 to the column number.
If ActiveCell.Row <> Sheets("Sheet1").Cells(iCtr, 1).Row Then
' Do comparison of next record.
If ActiveCell.Value = Sheets("Sheet1").Cells(iCtr, 1).Value Then
' If match is true then delete row.
Sheets("Sheet1").Cells(iCtr, 1).Delete xlShiftUp
' Increment counter to account for deleted row.
iCtr = iCtr + 1
End If
End If

Next iCtr
' Vai al record successivo.
ActiveCell (1, 0). Selezionare
Loop
Application. ScreenUpdating = True
MsgBox "Done!"
End Sub

3

Fare clic su "File" e poi "Chiudi e torna a Microsoft Excel." Una volta restituiti a Excel, navigare all'opzione strumenti nella barra degli strumenti, quindi macro. A destra, scegliere l'opzione "Macro". Nella casella di opzione Macro, vedere la macro denominata DelDups_OneList. Scegliere "Opzioni" e assegnare un tasto di scelta rapida di "q". Fare clic su "OK".

4

Fare clic su "Esegui". "Fatto" apparirà. Le voci duplicate nella prima colonna vengono eliminate.

5

Perché si hanno imposta il tasto di scelta rapida Ctrl + q, devi solo digitare Ctrl + q in futuro e le voci duplicate nella prima colonna di dati verranno rimosso.

Consigli & Avvertenze

• Altri codici macro trova duplicati o rimuovere righe duplicate. Vedere risorse qui sotto per i collegamenti a quei codici macro.
• Poiché si lavora con una macro che elimina i dati, eseguire il backup documento Excel prima di applicare la macro.