Alcuni fogli di calcolo vengono utilizzati e aggiornati molto. Questi sono spesso riempiti con i dati che si ripete più volte. Ci sono modi per trovare e cancellare le righe che contengono i dati duplicati , ma uno dei modi più semplici ed automatici per farlo è con una macro di Visual Basic. Excel contiene una domanda di programmazione chiamato Excel VBA , che può essere usato per fare un qualsiasi numero di macro - pezzi di codice progettato per fare un lavoro personalizzato ogni volta convocato. Cose che ti serviranno
Microsoft Excel
Show More Istruzioni
Programmazione del Macro
1

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 .