Aprire il foglio di calcolo in Excel e aprire il vostro editor di VBA premendo Alt e il tasto F11 sul computer .
2
Avviare un nuovo progetto facendo clic destro la cartella di lavoro nel menu di destra e scegliendo l'opzione "Nuovo" .
3
Inizia la nuova funzione di " DeleteDuplicateRows sub () . " Questa informa il compilatore VBA che c'è una nuova subroutine che dovrebbe essere a conoscenza.
4
Creare le variabili con il seguente codice :
Dim riga come conte LongDim Come LongDim Confronta come gamma VariantDim come gamma
Questo dice al sistema di mettere da parte le quattro variabili (riga, conte , Confronto e Range) da utilizzare nel codice . È possibile utilizzare qualsiasi nome delle variabili più senso per voi , ma ricordatevi di modificarli nel codice successivamente
5
Impostare la macro con un codice più fondamentale : .
On Error GoTo EndMacroApplication.ScreenUpdating = FalseApplication.Calculation = xlCalculationManual
Set Intervallo = Application.Intersect ( ActiveSheet.UsedRange , _ActiveSheet.Columns ( ActiveCell.Column ) ) Application.StatusBar = "Elaborazione fila: " & Format ( Rng.Row , " # , # # 0 " ) per
il primo gruppo di codice indica al sistema di eseguire la macro , se si corre in qualche problema . Il secondo gruppo imposta la variabile di intervallo in base a ciò che l'utente ha selezionato
6
Digitare il seguente codice: .
Conte
= 0For Row = Range.Rows.Count A 2 Fase - 1Se Row Mod 500 = 0 ThenApplication.StatusBar = "Elaborazione fila: " & Format ( R , " # , # # 0 " ) End If
Confronta = Range.Cells ( Riga , 1 ) . Valore
Questo dice al sistema di accedere a ciascuna delle righe selezionate dall'utente , e cambiare il confronta variabile a quella riga ogni volta che si muove su .
7
ingresso il seguente codice seguente : .
Se V = vbNullString ThenIf Application.WorksheetFunction.CountIf ( Rng.Columns ( 1 ) , vbNullString )> 1 ThenRng.Rows ( R ) EntireRow.DeleteN = N + 1End Applicazione IfElseIf . WorksheetFunction.CountIf ( Rng.Columns ( 1 ) , V )> 1 ThenRng.Rows ( R) . EntireRow.DeleteN = N + 1End IfEnd Se
Queste dichiarazioni sono quelli che effettivamente dire al sistema di confrontare la Confronta variabile alla cella successiva e cancellare la riga se le due sono la stessa cosa.
8
enter per inserire un paio di nuove linee , e poi digitare " Avanti Row" . Questo dice al sistema di smettere di guardare la prima fila , e passare a quella successiva
9
Chiudere la funzione con : .
Endmacro :
Application . StatusBar = FalseApplication.ScreenUpdating = TrueApplication.Calculation = xlCalculationAutomaticMsgBox " righe duplicate Deleted :" & CStr ( N ) per
End Sub
Queste ultime righe indicare al sistema come chiudere la subroutine
fuori, e anche per visualizzare una finestra di messaggio utile che informa l'utente che il Macro in realtà ha fatto quello che doveva fare . uso della modalità Macro
10
Salvare il foglio di calcolo . Salvare una seconda copia di backup prima di utilizzare il Macro . O copia e incolla il file in una cartella di backup , o noi la " Salva con nome" del file per salvare la seconda copia , è necessario chiudere Excel e ri- aprirlo.
11
Clicca e trascinare il cursore attorno alla colonna più importante di dati . Questo è quello per il quale tutte le voci devono differire , come nel caso, se tutto fosse stato inserito correttamente , non ci sarebbe alcun voci duplicate .
12
Aprire il menu "Strumenti" e selezionare " , macro "Questo apre la finestra di dialogo macro , che consente di scegliere ed eseguire la macro
13
Selezionare la macro , . se si è utilizzato l'esempio precedente , si chiamerà " . DelDuplicateR " . , quindi premere il pulsante "Esegui" . La macro verrà eseguito automaticamente e comparirà un messaggio che indica che i duplicati sono stati cancellati .
software © www.354353.com