Šajā rakstā mēs izveidosim makro, lai pārbaudītu dublēšanos un noņemtu dublētās vērtības no divām kolonnām pēc kārtas.
Neapstrādāti dati sastāv no mērķa informācijas, kas ietver aģenta vārdu, mērķa modeļa nosaukumu un vēlamā modeļa nosaukumu.
Šajā rakstā mēs vēlamies izdzēst tos ierakstus, kuriem ir līdzīgs mērķa modeļa nosaukums un vēlamais modeļa nosaukums.
Koda skaidrojums
LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell). Rinda
Iepriekš minēto kodu izmanto, lai iegūtu pēdējās šūnas rindas numuru.
Attiecībā uz i = pēdējā rinda līdz 12 1. darbība
Nākamais
Iepriekš minēto cilpu izmanto apgrieztai cilpai. Tas sāks darboties no pēdējās rindas līdz 12tūkst rinda.
Ja šūnas (i, 2) = šūnas (i, 3) Tad
Iepriekš minētajā kodā mēs esam salīdzinājuši vērtības šūnās 2nd kolonna ar 3rd sleja.
Rindas (i). Dzēst
Iepriekš minēto kodu izmanto, lai izdzēstu visu rindu.
Lūdzu, sekojiet tālāk norādītajam kodam
Opcija Explicit Sub DeleteMatches () 'Mainīgo mainīšana Dim LastRow, i As Long' Pēdējās šūnas rindas numura iegūšana LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell). Rinda 'Cilpa no pēdējās rindas uz 12. rindu i = LastRow to 12 Step -1 Ja šūnas (i, 2) = šūnas (i, 3), tad rindas (i). Dzēst beigas, ja nākamā beigas
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē