Selecteer de kolommen met gegevens die u wilt vergelijken om dubbele rijen . Bijvoorbeeld , als je wilt naar kolom A voor dubbele rijen te controleren , klikt u op " A. " kopen van 2

Open de VBE door op " Alt " en " F11 " samen op het toetsenbord . Dit opent de VBE venster .
3

Klik op " Open" en klik op "Module . " Een leeg venster wordt geopend in de VBE .
4

Knip en plak de volgende code in het lege venster van stap 3 :

Public Sub DeleteDuplicateRows
( ) ' DeleteDuplicateRows

Dim R Als LongDim N Als LongDim V Zoals VariantDim Rng als Range
< br >

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

Set
RNG = Application.Intersect ( ActiveSheet.UsedRange , _ActiveSheet.Columns ( ActiveCell.Column ) )

Toepassing
. StatusBar = " Verwerking Row : " & Format ( Rng.Row , " # , # # 0 " )

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

V = Rng.Cells ( R , 1 ) Value
< >

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

EndMacro :

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

End Sub

Druk op " F5 " Goedkope 5 om de procedure uit te voeren. De macro zal alle dubbele rijen draaien en te verwijderen .