Excel - makro za brisanje vrstice pod pogojem

Makroje lahko uporabite za različne operacije v delovnih listih Excel, kot so brisanje vrstic, ki izpolnjujejo določeno določeno stanje. Čeprav ni nujno, se lahko nekaj znanja o programskih konceptih in zankah izkaže za koristnega pri pisanju makra v Excelu. Makroje v Excelu za brisanje vrstic, ki izpolnjujejo določene pogoje, se lahko zapišejo iz nič ali se razvijejo iz prosto dostopne kode makra. Makri so zelo uporabna funkcija in se lahko uporabljajo za obdelavo podatkov na Excelovih delovnih listih z velikim številom zapisov. Makroji v Excelu avtomatizirajo proces, zaradi katerega je naloga hitra in brez napak.

Težava

Potrebujem makro za brisanje vrstic, če nobena od celic v vrstici ne vsebuje ene od dveh številk " 103526 " ali " 103527 "

Število vrstic je spremenljivo (največ 150) in število spremenljivk stolpcev (največ 100).

Vsaka pomoč je cenjena.

Rešitev

Tvoje stanje me zmede. Preoblikovam ga.

Če vrstica vsebuje 103526 ali 102527 ali oboje, potem NE brišite.

Če nobena od obeh številk ni v vrstici, izbrišite.

Zdaj, ko izbrišete vrstice, hranite kopijo podatkov v listu1 v list2, tako da lahko kopirate podatke, če je prišlo do nereda.

Podatki so v listih 1, poskusite ta makro:

 Sub test () Dim j Kot Integer, k Kot Integer Dim r Kot Območje, cfind6 Kot Razpon, cfind7 Kot Delovni listi razpona ("sheet1") Aktivirajte On Error Resume Naprej j = Celice (Rows.Count, "A"). End (xlUp) .Row Za k = j Do 1 Korak -1 Nastavi cfind6 = Vrstice (k) .Cells.Find (kaj: = 103526, lookat: = xlWhole) Nastavi cfind7 = Vrstice (k) .Cells.Find (kaj: = 103527, lookat: = xlWhole) Če cfind6 ni nič in cfind7 ni nič, potem se vrstijo (k).