Excel - Een macro voor het verwijderen van rij op voorwaarde

Macro's kunnen worden gebruikt voor verschillende bewerkingen op Excel-werkbladen, zoals het verwijderen van rijen die aan een bepaalde voorwaarde voldoen. Hoewel dit niet nodig is, kan enige kennis van programmeerconcepten en lussen nuttig blijken te zijn om een macro in Excel te schrijven. Macro's in Excel om rijen te verwijderen die aan bepaalde voorwaarden voldoen, kunnen vanaf nul worden geschreven of worden ontwikkeld op basis van een vrij beschikbare macrocode. Macro's zijn een zeer nuttige functie en kunnen worden gebruikt om gegevensmanipulaties op Excel-werkbladen met een groot aantal records tot stand te brengen. Macro's in Excel automatiseren het proces en maken de taak snel en foutloos.

Kwestie

Ik heb een Macro nodig voor het verwijderen van rijen wanneer geen van de cellen in de rij een van de twee nummers " 103526 " of " 103527 " bevat

Het aantal rijen is variabel (max. 150) en ook het aantal kolommen is variabel (max. 100).

Alle hulp wordt gewaardeerd.

Oplossing

Je toestand is verwarrend voor mij. Ik herformuleer het.

Als een rij 103526 of 102527 bevat of beide, wis dan NIET.

Als geen van de twee nummers op een rij staat, wis dan.

Terwijl u de rijen verwijdert, bewaart u een kopie van de gegevens in blad1 t / m blad2, zodat u de gegevens kunt kopiëren als er iets mis gaat.

De gegevens staan in werkbladen 1, probeer deze macro:

 Sub test () Dim j As Integer, k As Geheel getal Dim r As Range, cfind6 As Range, cfind7 As Range Werkbladen ("sheet1"). Activeren Aan Fout Doorgaan Volgende j = Cellen (Rows.Count, "A"). Einde (xlUp). Rijen Voor k = j Tot 1 Stap -1 Set cfind6 = Rijen (k) .Cells.Find (wat: = 103526, lookat: = xlWhole) Stel cfind7 = Rijen in (k) .Cells.Find (wat: = 103527, lookat: = xlWhole) Als cfind6 Niets is en cfind7 Is Nothing then Rows (k). Delet Volgende