In dit artikel zullen we een macro maken om duplicatie te controleren en dubbele waarden uit twee opeenvolgende kolommen te verwijderen.
Ruwe gegevens bestaan uit doeldetails, waaronder de naam van de agent, de naam van het doelmodel en de gewenste modelnaam.
In dit artikel willen we die records verwijderen die een vergelijkbare doelmodelnaam en gewenste modelnaam hebben.
Code uitleg
LastRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Rij
De bovenstaande code wordt gebruikt om het rijnummer van de laatste cel te krijgen.
Voor i = Laatste Rij Naar 12 Stap -1
Volgende
De bovenstaande For-lus wordt gebruikt voor reverse looping. Het begint te lussen vanaf de laatste rij tot de 12e rij.
Als Cellen(i, 2) = Cellen(i, 3) Dan
In bovenstaande code hebben we waarden vergeleken in de cellen van 2nd kolom met 3rd kolom.
Rijen(i).Verwijderen
De bovenstaande code wordt gebruikt om de hele rij te verwijderen.
Volg hieronder voor de code:
Optie Explicit Sub DeleteMatches() 'variabelen declareren Dim LastRow, i As Long' Het rijnummer van de laatste cel ophalen LastRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row 'Looping from last row to 12th row For i = LastRow To 12 Step -1 Als Cellen(i, 2) = Cellen(i, 3) Dan Rijen(i).Delete End If Next End Sub
Als je deze blog leuk vond, deel hem dan met je vrienden op Facebook. Ook kunt u ons volgen op Twitter en Facebook.
We horen graag van u, laat ons weten hoe we ons werk kunnen verbeteren en voor u kunnen verbeteren. Schrijf ons op de e-mailsite