Open uw spreadsheet in Excel en open uw VBA- editor door op Alt en de F11 toets op uw computer . kopen van 2

Start een nieuw project door met de rechtermuisknop te klikken op de werkmap op het menu aan de rechterkant en het kiezen van de " New " optie .
3

Start de nieuwe functie met " Sub DeleteDuplicateRows ( ) . " Dit informeert de VBA compiler dat er een nieuwe subroutine dat het moet zich bewust zijn van .
4

Maak de variabelen met de volgende code :

Dim Rij Zoals LongDim Graaf
Zoals LongDim Vergelijk Zoals VariantDim Waaier als Range

Dit vertelt het systeem om vernietiging van de vier variabelen ( Row , graaf , vergelijking en Range ) te gebruiken in de code . U kunt gebruiken wat variabelennamen meer zin om u , maar vergeet niet om ze te veranderen in de latere code
5

Stel de macro met wat meer basic code : .

On Error GoTo EndMacroApplication.ScreenUpdating = FalseApplication.Calculation = xlCalculationManual

Set Range
= Application.Intersect ( ActiveSheet.UsedRange , _ActiveSheet.Columns ( ActiveCell.Column ) ) Application.StatusBar = " Verwerking Row : " & Format ( Rng.Row , " # , # # 0 " ) op Twitter

de eerste groep code vertelt het systeem om de macro uit te voeren als het loopt in eventuele problemen . De tweede groep stelt het bereik variabel volgens welke de gebruiker heeft geselecteerd

Type 6 in de volgende code : .

Graaf
= 0For Row = Range.Rows.Count To 2 Step - 1Als Row Mod 500 = 0 ThenApplication.StatusBar = " Verwerking Row : " & Format ( R , " # , # # 0 " ) End If

vergelijken = Range.Cells ( rij , 1 ) . Value

Dit vertelt het systeem om door elk van de door de gebruiker geselecteerde rijen , en elke keer dat het beweegt over het wijzigen Vergelijk variabele die rij .

Input 7 de volgende code volgende : .

Als V = vbNullString thenif Application.WorksheetFunction.CountIf ( Rng.Columns ( 1 ) , vbNullString ) > 1 ThenRng.Rows ( R ) EntireRow.DeleteN = N + 1End IfElseIf Application . WorksheetFunction.CountIf ( Rng.Columns ( 1 ) , V ) > 1 ThenRng.Rows ( R ) . EntireRow.DeleteN = N + 1End IfEnd Als

Deze uitspraken zijn degenen die daadwerkelijk vertellen het systeem te vergelijk het Vergelijk variabele naar de volgende cel en verwijdert de rij als de twee zijn hetzelfde .

Press 8 invoeren om een ​​paar nieuwe lijnen invoegen en typ vervolgens " Next Row " . Dit vertelt het systeem om te stoppen met kijken naar de eerste rij , en ga naar de volgende
9

Sluit de functie : .

EndMacro
:

Application
. StatusBar = FalseApplication.ScreenUpdating = TrueApplication.Calculation = xlCalculationAutomaticMsgBox " Duplicate Rows Deleted : " & CStr ( N )

End Sub

Deze laatste regels vertellen het systeem hoe de subroutine sluiten uit, en ook om een nuttig bericht doos de gebruiker te informeren dat de Macro eigenlijk deed wat het moest doen geven .
met de Macro
10

Sla de spreadsheet . Sla een tweede , reservekopie voordat u de Macro . Ofwel kopieer en plak het bestand in een backup-map , of ons de " Opslaan als " bestand naar de tweede kopie - je nodig hebt om Excel en opnieuw openen te sluiten slaan .
11

Klik en sleep uw cursor over de belangrijkste kolom met gegevens . Dit is degene waarvoor alle inzendingen moeten verschillen - als in , als alles correct was ingevoerd , zou er geen sprake zijn van dubbele vermeldingen .
12

Open het menu "Extra " en kies " , macro's " Dit opent het dialoogvenster macro's , zodat u kunt kiezen en uitvoeren van uw macro
13

Selecteer uw macro ; . als je het bovenstaande voorbeeld wordt gebruikt , zal het worden genoemd " . DelDuplicateR " . , druk vervolgens op de "Run " knop . De macro wordt automatisch uitgevoerd , en een pop-up melding dat de duplicaten zijn verwijderd .