Tipo " 1 " in A1 , "2" in A2 , "2" in formato A3 , "3" in formato A4 , "4" in A5 , e "4" in A6 . Fare clic sulla scheda "Sviluppatore " e cliccare su " Visual Basic " per avviare l'editor di Visual Basic . Fai clic sul menu "Inserisci" e fare clic su "Modulo " per aggiungere un nuovo modulo
2
Creare una nuova procedura sub digitando il seguente codice: .
RemoveDuplicates Private Sub ()
3
Impostare l'intervallo della colonna in cui si desidera rimuovere i duplicati , come A1 ad A6
Range (" A1 : A6 " ) . . Seleziona
4
Aggiungere la seguente riga di codice per rimuovere i duplicati da A1 ad A6 :
ActiveSheet.Range ( " $ a $ 1 : $ a $ 6" ) . RemoveDuplicates colonne : = 1 , Header : = xlNo
5
visualizzare un messaggio quando sono stati rimossi i duplicati .
MsgBox " duplicati in A1 sono stati rimossi ! "
6
Fine del procedura di sub con l'aggiunta di "End Sub ", alla fine . Premere il tasto " F5 " per eseguire la procedura .
software © www.354353.com