Hoe te verwijderen van dubbele rijen in Excel met VBA



Bepaalde werkbladen worden gebruikt en bijgewerkt alot. Deze zijn vaak gevuld met gegevens die meerdere keren wordt herhaald. Er zijn manieren om te zoeken en verwijderen van rijen die dubbele gegevens bevatten, maar een van de meest eenvoudige en automatische manieren om dit te bereiken is met een Visual Basic-Macro. Excel bevat een toepassing voor het programmeren van Excel VBA, die kunnen worden gebruikt om een willekeurig aantal macro's genoemd — stukjes code die zijn ontworpen om een aangepaste doen wanneer opgeroepen.

Wat die u nodig hebt

  • Microsoft Excel

De Macro Programmeren

  • Open het werkblad in Excel en open uw VBA-editor door op Alt en de F11-toets op uw computer.

  • Een nieuw project starten door met de rechtermuisknop op de werkmap in het rechter menu en de "New"-optie te kiezen.

  • Start van de nieuwe functie met "Sub DeleteDuplicateRows()." Dit meldt de VBA-compiler dat er is een nieuwe subroutine waarmee het moet rekening houden met.

  • Maak de variabelen met de volgende code:

    Dim rij zo lang
    Dim graaf zoals lang
    Vergelijk Dim As Variant
    Dim bereik als bereik

    Dit vertelt het systeem om vernietiging van de vier variabelen (rij, staven, vergelijking en bereik) te gebruiken in de code. Hier kunt u wat variabelenamen meer zinvol voor u, maar vergeet niet om ze te veranderen in de latere code.

  • De macro met sommige meer basic-code instellen:

    Op fout GoTo EndMacro
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    Bereik instellen = Application.Intersect (ActiveSheet.UsedRange, _

      ActiveSheet.Columns(ActiveCell.Column)) 

    Application.StatusBar = "Processing rij:" & Format (Rng.Row, "#, ## 0")

    De eerste groep van code vertelt het systeem de macro wilt uitvoeren als het loopt in de problemen. De tweede groep stelt de variabele bereik afhankelijk van wat de gebruiker heeft geselecteerd.

  • Typ in de volgende code:

    Count = 0
    Voor rij = Range.Rows.Count met 2 stap -1
    Als rij Mod 500 = 0 dan

     Application.StatusBar = "Processing Row: " & Format(R, "#,##0") 

    End If

    Vergelijken = Range.Cells (rij 1). Waarde

    Dit vertelt het systeem te stap door elk van de rijen geselecteerd door de gebruiker, de variabele vergelijken naar die rij elke keer veranderen als die het beweegt op.

  • Ingang naast de volgende code:

    Als V = vbNullString Then

     If Application.WorksheetFunction.CountIf(Rng.Columns(1), vbNullString) > 1 ThenRng.Rows(R).EntireRow.DeleteN = N + 1End If 

    Anders

     If Application.WorksheetFunction.CountIf(Rng.Columns(1), V) > 1 ThenRng.Rows(R).EntireRow.DeleteN = N + 1End If 

    End If

    Deze verklaringen zijn degenen die eigenlijk het systeem vergelijken de vergelijken variabele naar de volgende cel en de rij verwijderen vertellen als de twee hetzelfde zijn.

  • Druk op enter om een paar nieuwe regels invoegen en typ vervolgens in "Volgende rij". Dit vertelt het systeem om te stoppen met het kijken naar de eerste rij, en gaan naar de volgende.

  • Sluiten de functie met:

    EndMacro:

    Application.StatusBar = False
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    MsgBox "dubbele rijen verwijderd:" & CStr(N)

    End Sub

    Deze laatste regels hoe het systeem te sluiten de subroutine uit, en ook om weer te geven van een nuttig berichtvenster informeren van de gebruiker die de Macro eigenlijk deed wat het moest doen.

Met behulp van de Macro

  • Sla het werkblad. Een tweede, back-up kopie opslaan voordat u de Macro. Of kopieer en plak het bestand in een back-upmap, of ons het bestand "Opslaan als" als de tweede kopie wilt opslaan, moet u Excel sluiten en opnieuw te openen.

  • Klik en sleep de cursor rond de belangrijkste kolom met gegevens. Dit is degene die alle inzendingen moeten verschillen — zoals in, als alles correct ingeschreven niet zou er dubbele vermeldingen.

  • Open het menu "Extra" en selecteer "Macro's." Hiermee opent u het dialoogvenster macro's, zodat u kunt kiezen en uitvoeren van uw macro.

  • Selecteer uw macro; Als u het bovenstaande voorbeeld hebt gebruikt, zal het worden genoemd "DelDuplicateR." Druk vervolgens op de knop "Run". De Macro zal automatisch worden uitgevoerd, en knal opwaarts een bericht weergegeven dat aangeeft dat de dubbele records zijn verwijderd.

Tips & waarschuwingen
  • Dit werkt alleen als de inhoud van de twee cellen precies hetzelfde zijn. Het zal niet werken als ze door zelfs een kleine hoeveelheid verschillen.
  • Macro's kunnen niet ongedaan gemaakt met de opdracht 'Undo' onder het menu "Bewerken" of Ctrl en Z. Voordat u macro's gebruikt, moet u back-up uw gegevens om te voorkomen dat verliezen van het geheel.

Gerelateerde Artikelen

Hoe te verwijderen van dubbele rijen in Excel op basis van één kolom

Hoe te verwijderen van dubbele rijen in Excel op basis van één kolom

Microsoft Excel is een spreadsheet-software die u organiseren helpt, grafiek en grote hoeveelheden gegevens te wijzigen. Hebt u een enkele kolom met gegevens (met andere woorden, een lijst), kan u per ongeluk dubbele gegevens invoeren tijdens het pro
Hoe te verwijderen van dubbele cellen in Excel

Hoe te verwijderen van dubbele cellen in Excel

In een grote gegevensset zijn dubbele vermeldingen onvermijdelijk. Dit kunnen worden veroorzaakt door gegevensinvoer fouten of legitieme herhalingen van gemeenschappelijke gegevensitems. Hoewel soms het noodzakelijk is dat deze dubbele vermeldingen,
Hoe te verwijderen van de lakens zonder bevestiging met VBA

Hoe te verwijderen van de lakens zonder bevestiging met VBA

Microsoft Visual Basic for Applications, of VBA is een versie van Microsoft Visual Basic voor de Microsoft Office-suite. VBA kan de gebruiker code haar eigen functies uit te breiden van de functies van de Office-toepassingen en kan gemeenschappelijke
Hoe een lijst van alle werkbladen in Excel met VBA

Hoe een lijst van alle werkbladen in Excel met VBA

De klasse van het werkblad in VBA is een krachtig hulpmiddel dat kan worden gebruikt voor het maken, bewerken en verwijderen van bladen in een Excel-werkmap. Elk Worksheet-object heeft een eigenschap met de naam 'Naam,' die naar de etiketten van de b
Hoe te verwijderen van dubbele waarden in Excel

Hoe te verwijderen van dubbele waarden in Excel

In plaats van handmatig zoeken door werkbladen voor dubbele items, kunt u één van twee functies in Microsoft Excel om gemakkelijker de baan: de optie "Duplicaten verwijderen" of voorwaardelijke opmaak. De eerste methode wordt automatisch verwijd
Hoe te verwijderen van dubbele SQL

Hoe te verwijderen van dubbele SQL

Databasebeheerders weet dat af en toe fouten optreden, en dubbele records in de database worden ingevoegd. Het gaat om een gemeenschappelijk probleem voor beheerders om vast te stellen, maar het verwijderen van records uit een SQL-server is een delic
Hoe te verwijderen van dubbele bestanden

Hoe te verwijderen van dubbele bestanden

Als u meerdere gevallen van dubbele bestanden op uw computersysteem hebt gevonden, bent u niet alleen.Een verscheidenheid van gratis programma's bestaan voor ieder besturingssysteem te detecteren en verwijderen van dubbele bestanden van uw harde schi
Hoe te verwijderen van dubbele waarden in uw Gmail-contactpersonen

Hoe te verwijderen van dubbele waarden in uw Gmail-contactpersonen

Staren naar talrijke dubbele contactpersonen die de dezelfde persoon in uw Gmail-account vertegenwoordigen kunnen vervelend zijn. Gmail maakt in veel gevallen, onbedoeld duplicaten van dezelfde persoon zonder uw medeweten van het evenement. Ter bestr
Hoe te verwijderen van dubbele contactpersonen in Outlook 2007

Hoe te verwijderen van dubbele contactpersonen in Outlook 2007

Microsoft Outlook is een e-mailtoepassing die kan worden een standalone programma of komen als onderdeel van de Microsoft Office-suite. Met Outlook, kunt u uw afspraken beheren, sturen en ontvangen van e-mails en houden lijsten van contact informatie
Hoe te verwijderen van dubbele aanhalingstekens in een tekenreeks in Perl

Hoe te verwijderen van dubbele aanhalingstekens in een tekenreeks in Perl

Een tekenreeks, in de programmeertaal Perl, kan alle alfanumerieke of speciale tekens bevatten. Als de tekenreeks doorgeven aan een ander programma, zoals een database, moet u wellicht Verwijder speciale tekens, met inbegrip van eventuele dubbele aan
Het verwijderen van dubbele rijen uit een Excel-werkblad

Het verwijderen van dubbele rijen uit een Excel-werkblad

Als één rij de exacte waarden van een of meer andere rijen deelt, worden alle dubbele rijen genoemd. Excel de filteroptie kunt u dergelijke rijen automatisch te verwijderen. (Uw werkblad moet kolomkoppen hebben.) Merk op dat hoewel deze procedures va
Het verwijderen van dubbele woorden in Excel

Het verwijderen van dubbele woorden in Excel

Microsoft Excel 2010 kan dubbele woorden uit een werkblad verwijderen. Excel's editing-commando's bevatten een "Find & uitgezocht"-knop in het lint van de opdracht. Excel zal alle dubbele woorden in het werkblad zoeken en deze vervangen door
Hoe te identificeren van dubbele Items in Excel

Hoe te identificeren van dubbele Items in Excel

Zoeken naar dubbele items in Excel-spreadsheets was ooit een redelijk moeilijke taak, maar met de release van Excel 2007 en Excel 2010 voort te zetten, het vinden van dubbele vermeldingen is net zo eenvoudig als het klikken op een knop. Excel kunt be
Hoe te verwijderen van dubbele Albums op mijn iPhone

Hoe te verwijderen van dubbele Albums op mijn iPhone

De primaire functie van de iPhone is als een mobiele telefoon, maar ook verdubbelt als een iPod of draagbare muziekspeler, onder andere dingen. U kunt muziek toevoegen aan de iPhone via de iTunestoepassing op een computer of op het apparaat zelf. Hel