În acest articol, vom crea o macro pentru a verifica duplicarea și a elimina valorile duplicate din două coloane consecutive.
Datele brute constau în detalii despre țintă, care includ numele agentului, numele modelului țintă și numele modelului dorit.
În acest articol, dorim să ștergem acele înregistrări, care au numele modelului țintă similar și numele modelului dorit.
Explicarea codului
LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell) .Row
Codul de mai sus este utilizat pentru a obține numărul rândului ultimei celule.
Pentru i = LastRow To 12 Pasul -1
Următorul
Bucla For de mai sus este utilizată pentru looping invers. Va începe să se bucle de la ultimul rând până la 12a rând.
Dacă celulele (i, 2) = Celulele (i, 3) Atunci
În codul de mai sus, am comparat valori în celulele 2nd coloana cu 3rd coloană.
Rânduri (i). Ștergeți
Codul de mai sus este folosit pentru a șterge întregul rând.
Vă rugăm să urmați codul de mai jos
Opțiune Explicit Sub DeleteMatches () „Declararea variabilelor Dim LastRow, i As Long” Obținerea numărului rândului ultimei celule LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell). If Cells (i, 2) = Cells (i, 3) Then Rows (i). Ștergeți End Dacă Next End Sub
Dacă ți-a plăcut acest blog, distribuie-l prietenilor tăi de pe Facebook. De asemenea, ne puteți urmări pe Twitter și Facebook.
Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți munca noastră și o putem îmbunătăți. Scrieți-ne pe site-ul de e-mail