Fjerne dupliserte verdier ved å sammenligne verdier i to påfølgende kolonner

I denne artikkelen vil vi lage en makro for å kontrollere duplisering og fjerne dupliserte verdier fra to kolonner på rad.

Rådata består av måldetaljer, som inkluderer agentnavn, målmodellnavn og ønsket modellnavn.

I denne artikkelen vil vi slette postene som har lignende målmodellnavn og ønsket modellnavn.

Kode forklaring

LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell) .Row

Koden ovenfor brukes til å få radnummeret til den siste cellen.

For i = LastRow Til 12 Trinn -1

Neste

Ovenstående For loop brukes for reverse looping. Den starter looping fra siste rad til 12^th rad.

Hvis celler (i, 2) = celler (i, 3) Så

I koden ovenfor har vi sammenlignet verdier i cellene til 2^nd kolonne med 3^rd kolonne.

Rader (i). Slett

Koden ovenfor brukes til å slette hele raden.

Følg koden nedenfor

 Alternativ Eksplisitt under DeleteMatches () 'Deklarasjonsvariabler Dim LastRow, i As Long' Henter radnummeret til siste celle LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell) .Rekke 'Sløyfe fra siste rad til 12. rad For i = LastRow To 12 Trinn -1 If Cells (i, 2) = Cells (i, 3) Then Rows (i). Slett End If Next End Sub 

Hvis du likte denne bloggen, del den med vennene dine på Facebook. Du kan også følge oss på Twitter og Facebook.

Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post