Excel - Makro pro mazání řádků za podmínek

Makra mohou být použita pro různé operace v Excelu, jako například odstranění řádků, které vyhovují dané podmínce. I když to není nutné, některé znalosti programovacích konceptů a smyček se mohou ukázat jako užitečné pro zápis makra do aplikace Excel. Makra v aplikaci Excel k odstranění řádků, které splňují určité podmínky, mohou být napsána od začátku nebo z volně dostupného kódu makra. Makra jsou velmi užitečnou funkcí a lze je použít k provedení manipulace s daty na pracovních listech Excel s velkým počtem záznamů. Makra v aplikaci Excel automatizují proces umožňující rychlé a bezchybné provedení úlohy.

Problém

Potřebuji makro pro smazání řádků, když žádná z buněk v řádku neobsahuje jedno ze dvou čísel " 103526 " nebo " 103527 "

Počet řádků je variabilní (max. 150) a také počet proměnných sloupců (max. 100).

Jakákoliv pomoc je vítána.

Řešení

Váš stav je pro mě matoucí. Přepracovávám to.

Pokud řádek obsahuje buď 103526 nebo 102527 nebo obojí, NEODSTRAŇUJTE.

Pokud ani jedno z obou čísel není v řádku, vymažte.

Nyní, když odstraňujete řádky, uchovávejte kopii dat v listu 1 do listu2, abyste mohli data zkopírovat, pokud je nějaký nepořádek.

Data jsou v listech 1, zkuste toto makro:

 Sub test () Dim j jako celé číslo, k jako celé číslo Dim r jako rozsah, cfind6 As Range, cfind7 As Range Worksheets ("sheet1") Aktivace On Error Resume Další j = buňky (Rows.Count, "A"). (xlUp) .Row Pro k = j Do 1 kroku -1 Nastavte cfind6 = Řádky (k) .Cells.Find (co: = 103526, lookat: = xlWhole) Nastavte cfind7 = Řádky (k) .Cells.Find (co: = 103527, lookat: = xlWhole) Pokud cfind6 není nic a cfind7 není nic, pak řádky (k).