V tem članku bomo ustvarili makro za preverjanje podvajanja in odstranili podvojene vrednosti iz dveh zaporednih stolpcev.
Neobdelani podatki so sestavljeni iz podrobnosti o ciljih, ki vključujejo ime agenta, ime ciljnega modela in želeno ime modela.
V tem članku želimo izbrisati tiste zapise, ki imajo podobno ime modela Target in ime želenega modela.
Razlaga kode
LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell).
Zgornja koda se uporablja za pridobitev številke vrstice zadnje celice.
For i = LastRow To 12 Step -1
Naslednji
Zgornja zanka For se uporablja za povratno zanko. Zankalo se bo od zadnje vrstice do 12th vrstici.
Če so celice (i, 2) = celice (i, 3), potem
V zgornji kodi smo primerjali vrednosti v celicah 2nd stolpec s 3rd stolpec.
Vrstice (i). Izbriši
Zgornja koda se uporablja za brisanje celotne vrstice.
Za kodo sledite spodaj
Možnost Explicit Sub DeleteMatches () "Razglasitev spremenljivk Dim LastRow, i As Long" Pridobivanje številke vrstice zadnje celice LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell). Če so celice (i, 2) = celice (i, 3), potem vrstice (i). Izbriši konec, če je naslednji konec pod
Če vam je bil ta blog všeč, ga delite s prijatelji na Facebooku. Prav tako nam lahko sledite na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo svoje delo in ga izboljšamo za vas. Pišite nam na spletnem mestu e -pošte
