Come per rimuovere i duplicati da Excel Macro

July 12

Una voce duplicata in Microsoft Excel è una voce in una colonna o riga che soddisfa le altre voci nella stessa colonna o riga. Si consiglia di rimuovere queste voci duplicate per stringere il backup dei dati, ma non è possibile 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, rimuovendo automaticamente le voci duplicate in colonne o righe non è evidente.

istruzione

Costruire una macro per rimuovere First duplicati Colonna

1 Individuare strumenti della barra degli strumenti e giù per macro. A destra, trovare il Visual Basic Editor e sinistro del mouse su di esso. Una volta in Visual Basic Editor, trovare il menu a discesa che consente di creare un utente modulo, o modulo di classe. Scegliere "Modulo".

2 Copia e incolla il seguente nella casella di modifica che si apre:

DelDups_OneList Sub ()
Dim iListCount As Integer
Dim ICTR As Integer
'Spegnere l'aggiornamento dello schermo per accelerare macro.
Application.ScreenUpdating = False
'Get conteggio di record per la ricerca in.
iListCount = Sheets ( "Sheet1") Range. ( "A1: A100"). Rows.Count
Sheets ( "Sheet1"). Range ( "A1"). Selezionare
'Loop fino alla fine del record.
Fare Fino ActiveCell = ""
'Loop tra i record.
Per ICTR = 1 Per 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

Successivo ICTR
'Vai a record successivo.
ActiveCell.Offset (1, 0) .Select
Ciclo continuo
Application.ScreenUpdating = True
MsgBox "Fatto!"
End Sub

3 Fai clic su "File" e poi su "Chiudi e torna a Microsoft Excel". Una volta tornato a Excel, individuare l'opzione Strumenti nella barra degli strumenti e quindi Macro. A destra, scegliere l'opzione "Macro". Nella casella di opzione Macro, vedere la macro chiamata DelDups_OneList. Scegli "Opzioni" e assegnare un tasto di scelta rapida di "q". Fai clic su "OK".

4 Fai clic su "Esegui". "Fatto" apparirà. Le voci duplicate nella prima colonna vengono cancellati.

5 Poiché è stato impostato il tasto di scelta rapida per Ctrl + q, è sufficiente digitare Ctrl + q in futuro e le voci duplicate nella vostra prima colonna di dati verranno rimossi.

Consigli e avvertenze

  • Altri codici macro trovare i duplicati o rimuovere le righe duplicate. Vedi Risorse per i collegamenti a tali codici macro.
  • Perché si sta lavorando con una macro che elimina i dati, eseguire il backup del documento di Excel prima di applicare la macro.