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.
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.