Pasikartojančių verčių pašalinimas lyginant reikšmes dviejuose iš eilės stulpeliuose

Š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 12^tūkst eilė.

Jei ląstelės (i, 2) = Ląstelės (i, 3) Tada

Aukščiau esančiame kode palyginome 2 langelių reikšmes^antra stulpelis su 3^rd 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