Frage : Datenfolge entfernen

Hallo helfen Experten,

I Notwendigkeit Experten, einen Index zu schreiben, um die Reihe zu entfernen versöhnen innen Blatt, wenn die Column_D Zelle „Stichwort“ Wort hat. Hoffnung-Experten können mir helfen, diese Eigenschaft zu verursachen. Anbrachte das Arbeitsbuch für Experten perusal.
Attachments:

Antwort : Datenfolge entfernen

Wenn alle sie in D. sind.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Vorx ()
  
Schwaches rFind als Strecke

Application.ScreenUpdating = falsch

Mit Blättern („versöhnen“). Spalten (4)
    rFind einstellen =. Finden (was: = " Stichwort ", LookAt: =xlWhole, MatchCase: =False, SearchFormat: =False)
    Wenn nicht rFind nichts dann ist
        Tun
            rFind.EntireRow.Delete
            rFind einstellen =. Finden (was: = " Stichwort ", LookAt: =xlWhole, MatchCase: =False, SearchFormat: =False)
        Schlingen, bis rFind nichts ist
    Beenden wenn
Mit beenden
     
Application.ScreenUpdating = richten aus
     
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us