I denne artikel vil vi oprette en makro til at kontrollere duplikering og fjerne dublerede værdier fra to på hinanden følgende kolonner.
Rådata består af måldetaljer, som omfatter agentnavn, målmodelnavn og ønsket modelnavn.
I denne artikel vil vi slette de poster, der har lignende Target -modelnavn og ønsket modelnavn.
Kode forklaring
LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell) .Row
Ovenstående kode bruges til at hente rækkenummeret for den sidste celle.
For i = LastRow Til 12 Trin -1
Næste
Ovenstående For loop bruges til reverse looping. Det begynder at løkke fra sidste række til 12th række.
Hvis celler (i, 2) = celler (i, 3) derefter
I ovenstående kode har vi sammenlignet værdier i cellerne på 2nd kolonne med 3rd kolonne.
Rækker (i). Slet
Ovenstående kode bruges til at slette hele rækken.
Følg venligst nedenstående for koden
Valgmulighed Eksplicit under DeleteMatches () 'Deklarationsvariabler Dim LastRow, i As Long' Henter rækkenummer for sidste celle LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell) .Ræk 'Looping fra sidste række til 12. række For i = LastRow To 12 Trin -1 If Cells (i, 2) = Cells (i, 3) Then Rows (i). Slet End If Next End Sub
Hvis du kunne lide denne blog, kan du dele den med dine venner på Facebook. Du kan også følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet