Tässä artikkelissa luomme makron, joka tarkistaa päällekkäisyyden ja poistaa päällekkäiset arvot kahdesta peräkkäisestä sarakkeesta.
Raakatiedot koostuvat kohdetiedoista, jotka sisältävät agentin nimen, kohdemallin nimen ja halutun mallin nimen.
Tässä artikkelissa haluamme poistaa tietueet, joilla on samanlainen kohdemallin nimi ja haluttu mallinimi.
Koodin selitys
LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell) .Row
Yllä olevaa koodia käytetään viimeisen solun rivinumeron saamiseen.
I = LastRow To 12 Vaihe -1
Seuraava
Yllä olevaa For -silmukkaa käytetään käänteiseen silmukointiin. Se alkaa silmukoida viimeisestä rivistä 12: eenth rivi.
Jos Solut (i, 2) = Solut (i, 3) Sitten
Yllä olevassa koodissa olemme vertailleet arvoja soluissa 2toinen sarake, jossa on 3rd sarake.
Rivit (i) Poista
Yllä olevaa koodia käytetään koko rivin poistamiseen.
Seuraa koodia alla
Option Explicit Sub DeleteMatches () 'Declaring muuttujat Dim LastRow, i As Long' Viimeisen solun rivinumeron saaminen LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell) .Row 'Silmukka viimeiseltä riviltä 12. riville i = LastRow to 12 Step -1 Jos solut (i, 2) = solut (i, 3) sitten rivit (i).
Jos pidit tästä blogista, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse