Duplicaten verwijderen uit Excel-Macro

Een dubbele vermelding in Microsoft Excel is een item in een kolom of rij die overeenkomt met de andere items in dezelfde kolom of rij. U kunt deze dubbele vermeldingen aan te scherpen uw gegevens worden verwijderd, maar u kunt dit handmatig, niet vooral als u honderden van cellen met gegevens hebben. Helaas, als u werkt in Microsoft Office Excel, met name Excel 2002 en Excel 2003, verwijderen van dubbele items in kolommen of rijen automatisch is niet duidelijk.

Instructies

Bouwen van een Macro om de eerste kolom duplicaten verwijderen

1

Ga naar hulpmiddelen op de werkbalk en tot Macro. Naar rechts, vinden de Visual Basic Editor en klik met de linkermuisknop op het. Eenmaal in de Visual Basic Editor, vinden de drop-down, waarmee u een gebruikersformulier, Module of klassemodule maken. Kies "Module."

2

Kopieer en plak het volgende in het bewerken venster dat wordt geopend:

Sub DelDups_OneList()
Dim iListCount As Integer
ICtr As Integer Dim
' Scherm bijwerken als u de macro wilt versnellen uitschakelen.
Application.ScreenUpdating = False
' Get telling van records te doorzoeken.
iListCount = Sheets("Sheet1"). Range("a1:A100"). Rows.Count
Sheets("Sheet1"). Range("a1"). Selecteer
' Lus tot einde van records.
Doen tot ActiveCell = ""
' Doorloop records.
Voor iCtr = 1 To iListCount

' Don't compare against yourself.
' To specify a different column, change 1 to the column number.
If ActiveCell.Row <> Sheets("Sheet1").Cells(iCtr, 1).Row Then
' Do comparison of next record.
If ActiveCell.Value = Sheets("Sheet1").Cells(iCtr, 1).Value Then
' If match is true then delete row.
Sheets("Sheet1").Cells(iCtr, 1).Delete xlShiftUp
' Increment counter to account for deleted row.
iCtr = iCtr + 1
End If
End If

Volgende iCtr
' Ga naar de volgende record.
ActiveCell.Offset (1, 0). Selecteer
Loop
Application.ScreenUpdating = True
MsgBox "Done!"
End Sub

3

Klik op "Bestand" en vervolgens "sluiten en terugkeren naar Microsoft Excel." Wanneer eenmaal teruggekeerd naar Excel, blader naar de optie van de gereedschappen op de werkbalk en vervolgens naar macro's. Aan de rechterkant, de "Macro's"-optie te kiezen. Zie de macro met de naam DelDups_OneList in het vak Macronaam de optie. Kies de "Opties" en een kortere wegsleutel toewijzen van "q". Klik op 'OK'.

4

Klik "Run". "Done" zal verschijnen. De dubbele vermeldingen in de eerste kolom worden verwijderd.

5

Omdat u uw kortere wegsleutel voor de Ctrl + q hebt ingesteld, hoeft u alleen te druk op Ctrl + q in de toekomst en de dubbele items in uw eerste kolom met gegevens zullen worden verwijderd.

Tips & waarschuwingen

  • Andere macrocodes duplicaten zoeken of verwijderen van dubbele rijen. Zie bronnen hieronder voor links naar deze macrocodes.
  • Omdat u met een macro die gegevens worden verwijderd werkt, maakt u een back-up van uw Excel-document vóór het toepassen van de macro.