Ta bort dubblettvärden genom att jämföra värden i två på varandra följande kolumner

I den här artikeln kommer vi att skapa ett makro för att kontrollera dubbelarbete och ta bort dubblettvärden från två på varandra följande kolumner.

Raw data består av måldetaljer, inklusive agentnamn, målmodellnamn och önskat modellnamn.

I den här artikeln vill vi ta bort de poster som har liknande målmodellnamn och önskat modellnamn.

Kodförklaring

LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell) .Row

Ovanstående kod används för att få radnumret för den sista cellen.

För i = LastRow Till 12 Steg -1

Nästa

Ovanstående For loop används för omvänd looping. Det kommer att börja loopa från sista raden till 12: an^th rad.

If Cells (i, 2) = Cells (i, 3) Then

I ovanstående kod har vi jämfört värden i cellerna på 2^nd kolumn med 3^rd kolumn.

Rad (i). Radera

Ovanstående kod används för att radera hela raden.

Följ koden nedan

 Alternativ Explicit Sub DeleteMatches () 'Declaring variables Dim LastRow, i As Long' Hämta radnumret för sista cellen LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell) .Row 'Looping from last row to 12th row For i = LastRow To 12 Step -1 If Cells (i, 2) = Cells (i, 3) Then Rows (i). Radera End If Next End Sub 

Om du gillade den här bloggen, dela den med dina vänner på Facebook. Du kan också följa oss på Twitter och Facebook.

Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra vårt arbete och göra det bättre för dig. Skriv till oss på e -postwebbplatsen