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 dispone di centinaia di celle di dati . Purtroppo , se si lavora in Microsoft Office Excel , in particolare Excel 2002 ed Excel 2003 , eliminando le voci duplicate in colonne o righe non è automaticamente ovvio .
Istruzioni di costruzione di una macro per rimuovere prima colonna duplicati
1
Sfoglia Strumenti sulla barra degli strumenti e giù per Macro . A destra , trova il Visual Basic Editor e sinistro del mouse su di esso . Una volta in Visual Basic Editor , trovare il menu a tendina che permette di creare un form 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 Come IntegerDim ICTR As Integer ' Spegnere l'aggiornamento dello schermo per accelerare macro.Application . ScreenUpdating = False ' . ottenere il numero di record da cercare through.iListCount = Sheets (" Foglio1 " ) Range ("A1 : A100 " ) . Rows.CountSheets ( " Foglio1 " ) Range (" A1") Select . . ' Ciclo fino fine records.Do Fino ActiveCell = " " 'Loop attraverso records.For ICTR = 1 To iListCount ' non confrontare con te stesso ' . Per specificare una colonna diversa , sostituire 1 alla colonna number.if ActiveCell.Row <> Sheets (" Foglio1 " ) . Cells (ICTR , 1) . Riga e ' fare il confronto del prossimo record.If ActiveCell.Value = Sheets ( " Foglio1 " ) . Cells (ICTR , 1) . Valore Then ' Se il match è vero quindi eliminare row.Sheets ( " Foglio1 " ) . Cells ( ICTR , 1) . Elimina xlShiftUp ' Incrementa contatore per tenere conto di row.iCtr cancellato = ICTR + 1End IfEnd IfNext ICTR ' Vai alla prossima record.ActiveCell.Offset ( 1 , 0 ) . SelectLoopApplication.ScreenUpdating = TrueMsgBox " Fatto ! " End Sub
3
Fare clic su " File " e poi " Chiudi e torna a Microsoft Excel ". Una volta tornato in Excel , selezionare 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 ". Fare clic su "OK".
4
Fare clic su " Esegui". " OK" appare . Le voci duplicate nella prima colonna vengono eliminate .
5
Poiché avete impostato il tasto di scelta rapida per Ctrl + q , è sufficiente digitare Ctrl + q per il futuro e le voci duplicate nel tuo prima colonna di dati verrà eliminato .
