Excel - makró a sor törlésére

A makrók különböző műveletekhez használhatók Excel munkalapokon, mint például egy adott feltételnek megfelelő sorok törlése . Bár nem szükséges, a programozási koncepciók és a hurkok bizonyos ismerete hasznos lehet egy makró Excelben való írásához. Az Excelben lévő makrók a bizonyos feltételeket kielégítő sorok törléséhez semmiből írhatók, vagy egy szabadon elérhető makró kódból alakíthatók ki. A makrók nagyon hasznos funkciók, és felhasználhatók az Excel munkalapok adatkezelésének nagy számú rekordgal történő végrehajtására. Az Excel makrók automatizálják a folyamat gyors és hibamentes folyamatát.

Probléma

Szükségem van egy makróra a sorok törléséhez, ha a sorban lévő cellák egyike sem tartalmaz két számot az " 103526 " vagy " 103527 " számból

A sorok száma változó (max. 150) és az oszlopok száma is változó (max. 100).

Bármilyen segítséget értékelünk.

Megoldás

Az Ön állapota zavaró számomra. Átformázom.

Ha egy sor 103526 vagy 102527 vagy mindkettőt tartalmaz, akkor NE törölje.

Ha a két szám egyike nincs sorban, törölje.

Most, ahogy törli a sorokat, az 1-es lapon tárolja az adatok egy példányát a sheet2-re, hogy az adatok másolhatók, ha rendetlenség van.

Az adatok az 1. lapon vannak, próbáld ki ezt a makrót:

 Sub-teszt () Dim j Integer-ként, k Integer Dim r mint tartomány, cfind6 Tartományként, cfind7 Tartományi munkalapként ("sheet1") Aktiválás On Error Folytatás Következő j = Cells (Rows.Count, "A"). (xlUp) .Row for k = j 1 lépés -1 beállítása cfind6 = sorok (k) .Cells.Find (ami: = 103526, lookat: = xlWhole) Beállítás cfind7 = sorok (k) .Cells.Find (mi: = 103527, lookat: = xlWhole) Ha cfind6 semmi és cfind7 nincs semmi, akkor sorok (k).