Excel - O macrocomandă pentru ștergerea rândului în condiție

Macrourile pot fi utilizate pentru diverse operații în foile de lucru Excel, cum ar fi ștergerea rândurilor care satisfac o anumită condiție dată. Deși nu este necesar, unele cunoștințe de concepte de programare și de bucle se pot dovedi utile pentru a scrie o macro în Excel. Macrogramele din Excel pentru a șterge rânduri care îndeplinesc anumite condiții pot fi scrise din nou sau dezvoltate dintr-un cod macro disponibil în mod gratuit. Macroanele sunt o caracteristică foarte utilă și pot fi folosite pentru a realiza manipulări de date pe foile de lucru Excel cu un număr mare de înregistrări. Macrogramele din Excel automatizează procesul de realizare a sarcinii rapid și fără erori.

Problema

Am nevoie de un Macro pentru ștergerea rândurilor atunci când niciuna din celulele din rând nu conține unul din cele două numere " 103526 " sau " 103527 "

Numărul de rânduri este variabil (maximum 150), iar numărul coloanelor este variabil (maximum 100).

Orice ajutor este apreciat.

Soluţie

Starea ta este confuză pentru mine. Îl rephrase.

Dacă un rând conține fie 103526, fie 102527 sau ambele atunci NU ștergeți.

Dacă niciuna dintre cele două numere nu este în ordine, ștergeți.

Acum, pe măsură ce ștergeți rândurile, păstrați o copie a datelor din foaia1 pe foaia2, astfel încât să puteți copia datele în cazul în care există o dezordine.

Datele sunt în foile 1, încercați această macrocomandă:

 Sub test () Dim j Ca Integer, k Ca Integer Dim r Ca Interval, cfind6 Ca Interval, cfind7 Ca foi de lucru de intersecție ("sheet1") Activare la eroare Reluare Următor j = Celule (Rows.Count, "A" (xlUp) .Rând Pentru k = j La 1 Pas -1 Set cfind6 = Rows (k) .Cells.Find (what: = 103526, lookat = = xlWhole) Set cfind7 = Rows (k) .Cells.Find = 103527, lookat: = xlWhole) Dacă cfind6 este nimic și cfind7 nu este nimic apoi rândurile (k) .Delete Next