Frage : Datenfolge entfernen

Hallo helfen Experten,

I Notwendigkeit Experten, den angebrachten Index neu zu schreiben. Eine andere Datenfolge entfernen müssen, wenn das column_C dieses Wort „Test1/Test2/Test3“ außer „Stichwort“ hat. Hoffnung-Experten konnten helfen, dieses code. zu verbessern 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Sub Cue2 ()
 
Schwaches rFind als Strecke

Application.ScreenUpdating = falsch

Mit Blättern („System“). Spalten (3)
    rFind einstellen =. Finden (was: = " Stichwort ", LookAt: =xlPart, MatchCase: =False, SearchFormat: =False)
    Wenn nicht rFind nichts dann ist
        Tun
            rFind.EntireRow.Delete
            rFind einstellen =. Finden (was: = " Stichwort ", LookAt: =xlPart, MatchCase: =False, SearchFormat: =False)
        Schlingen, bis rFind nichts ist
    Beenden wenn
Mit beenden
     
Application.ScreenUpdating = ausrichten en
     
Enden-Unterseeboot

Antwort : Datenfolge entfernen

Wenn Sie durch die Reihen im Rückauftrag wiederholen und sie aus der Unterseite herauf Sie löschen, müssen nicht um Ihren Index sich sorgen, der aus ist.  etwas wie das folgende würde arbeiten…

Privates Unterseeboot CommandButton1_Click ()
Für I = ActiveCell.SpecialCells (xlLastCell). Reihe zu 1 Schritt -1
   Wenn Zellen (I, 3) = „Test1/Test2/Test3“ dann
     Reihen (I).Delete
   Beenden wenn
Zunächst I
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us