Šiame straipsnyje mes sukursime makrokomandą, kad patikrintume dubliavimą ir pašalintume pasikartojančias reikšmes iš dviejų stulpelių iš eilės.
Neapdorotus duomenis sudaro tikslinė informacija, įskaitant agento vardą, tikslo modelio pavadinimą ir pageidaujamą modelio pavadinimą.
Šiame straipsnyje norime ištrinti tuos įrašus, kurie turi panašų tikslinio modelio pavadinimą ir norimą modelio pavadinimą.
Kodo paaiškinimas
LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell) .Row
Aukščiau pateiktas kodas naudojamas paskutinio langelio eilutės numeriui gauti.
Jei i = paskutinė eilutė iki 12 veiksmas -1
Kitas
Aukščiau pateikta kilpa skirta atvirkštiniam kilpavimui. Jis prasidės nuo paskutinės eilutės iki 12tūkst eilė.
Jei ląstelės (i, 2) = Ląstelės (i, 3) Tada
Aukščiau esančiame kode palyginome 2 langelių reikšmesantra stulpelis su 3rd stulpelis.
Eilutės (i). Ištrinti
Aukščiau pateiktas kodas naudojamas ištrinti visą eilutę.
Sekite toliau pateiktą kodą
Parinktis „Explicit Sub DeleteMatches“) „Kintamųjų deklaravimas Dim LastRow, i As Long“ Paskutinės ląstelės eilutės numerio gavimas LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell). Jei langeliai (i, 2) = langeliai (i, 3), tada eilutės (i). Ištrinkite pabaigą, jei kitas pabaiga
Jei jums patiko šis tinklaraštis, pasidalykite juo su draugais „Facebook“. Be to, mus galite sekti „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime pagerinti savo darbą ir padaryti jį geresnį. Rašykite mums el