„Excel“ - makrokomandas iš eilės ištrinti

Makrokomandas galima naudoti įvairioms operacijoms „ Excel“ darbalapiuose, pvz., Išbraukiant eilutes, atitinkančias tam tikrą sąlygą. Nors nebūtina, kai kurios programavimo sąvokų ir kilpų žinios gali būti naudingos rašant makrokomandą „Excel“ programoje. Makrokomandos programoje „Excel“ ištrinti tam tikras sąlygas atitinkančias eilutes gali būti parašytos nuo nulio arba sukurtos iš laisvai prieinamo makro kodo. Makrokomandos yra labai naudinga funkcija ir gali būti naudojamos duomenų apdorojimui Excel darbalapiuose su daugybe įrašų. „Excel“ makrokomandos automatizuoja procesą, kad užduotis būtų greitai ir be klaidų.

Problema

Norint ištrinti eilutes, reikia makro, kai nė viena iš eilutės ląstelių neturi vieno iš dviejų numerių " 103526 " arba " 103527 "

Eilių skaičius yra kintamas (maks. 150) ir stulpelių kintamojo skaičius (maks. 100).

Bet kokia pagalba yra vertinama.

Sprendimas

Jūsų būklė man suklaidina. Aš jį performuliu.

Jei eilutėje yra arba 103526, arba 102527, arba abu, NEGALIMA ištrinti.

Jei nė vienas iš abiejų numerių yra iš eilės, ištrinkite.

Dabar, kai ištrinate eilutes, saugokite 1 lapo duomenų kopiją lapui2, kad galėtumėte nukopijuoti duomenis, jei yra netvarka.

Duomenys yra 1 lapuose, išbandykite šį makrokomandą:

 Sub testas () Dim j Kaip Integer, k Kaip Integer Dim r Kaip Diapazonas, cfind6 As Range, cfind7 Kaip Diapazono darbalapiai ("sheet1") Aktyvinti On Error Atnaujinti Next j = Cells (Rows.Count, "A") (xlUp) .Užsakymas k = j Į 1 žingsnį -1 Nustatyti cfind6 = Eilutės (k) .Keliamos.Raskite (kas: = 103526, lookat: = xlWhole) Set cfind7 = Eilutės (k). = 103527, lookat: = xlWhole) Jei cfind6 yra nieko ir cfind7 nėra nieko, tada eilutės (k) .Delete Next 

Pastaba

Ačiū venkat1926 už šį patarimą forume.

Ankstesnis Straipsnis Kitas Straipsnis

Geriausi Patarimai