Löschen Sie die gesamte Zeile, wenn Zelle die Zeichenfolge X enthält

Ich bin neu in VBA und ich bin versucht zu kommen mit ein Weg, um löschen Sie alle Zeilen (und shift-Zellen, wenn möglich), wo die website-Spalte-Zelle enthält das Wort none. Die Tabelle enthält 5000+ records und das würde mich retten viel Zeit.

Ich schätzen, Anregungen. Vielen Dank im Voraus!

http://i39.tinypic.com/5ano1d.png

InformationsquelleAutor der Frage AnchovyLegend | 2013-07-12

66

Dies ist nicht eine VBA-Aufgabe - Dieses Besondere Aufgabe ist die einfachste sollowed mit Auto filter.

1.Legen Sie die Auto-filter (In Excel 2010 klicken Sie auf home-> (Bearbeitung) Art & Filter -> Filter)

2. Filter auf die 'Websites' Spalte

3. Markieren Sie die "none" aus und löschen

4. Filter zurücksetzen

InformationsquelleAutor der Antwort MBK
16

Ok, ich weiß, das für VBA, aber wenn Sie müssen dies tun, für eine einmal aus-bulk-delete können Sie die folgende Excel-Funktionen: http://blog.contextures.com/archives/2010/06/21/fast-way-to-find-and-delete-excel-rows/ Hoffe, dies hilft jemand

Beispiel auf der Suche nach der Zeichenfolge "Papier":
1. In der Suchen und Ersetzen Dialogfeld, geben Sie "Papier" in das Feld Suchen nach.
2. Auf Alle Suchen klicken, um eine Liste von Zellen, die mit "Papier"
3. Wählen Sie ein Element in der Liste aus, und drücken Sie Strg+A, und wählen Sie die gesamte Liste, und wählen Sie " alle "Papier" - Zellen auf dem Arbeitsblatt.
4. Auf der Multifunktionsleiste auf die Registerkarte Startseite, klicken Sie auf Löschen, und klicken Sie dann auf Blatt Löschen Reihen.
InformationsquelleAutor der Antwort Barry Carter
5

In den "Entwicklertools" gehen Sie auf "Visual Basic" und ein Modul erstellen. Kopieren Sie den folgenden. Daran ändern Sie den code, je nachdem, was Sie wollen. Dann führen Sie das Modul.
```
  Sub sbDelete_Rows_IF_Cell_Contains_String_Text_Value()
    Dim lRow As Long
    Dim iCntr As Long
    lRow = 390
    For iCntr = lRow To 1 Step -1
        If Cells(iCntr, 5).Value = "none" Then
            Rows(iCntr).Delete
        End If
    Next
    End Sub
```
lRow : Legen Sie die Anzahl der Zeilen, die die aktuelle Datei hat.

Die Zahl "5" in der "Wenn" ist für die fünfte (E) Spalte

InformationsquelleAutor der Antwort Apolo Radomer
5

Möchte ich hinzufügen @MBK Antwort. Obwohl ich fand @MBK Antwort, die sehr hilfreich sein bei der Lösung ein ähnliches problem, es wäre besser, wenn @MBK ein screenshot, wie das filtern einer bestimmten Spalte.

InformationsquelleAutor der Antwort palmbardier
1

Dies war angedeutet in einem anderen Kommentar, aber Sie könnten versuchen, so etwas wie dieses.
```
Sub FilterAndDelete()

Application.DisplayAlerts = False 

     With Sheet1 'Change this to your sheet name

         .AutoFilterMode = False   
         .Range("A3:K3").AutoFilter
         .Range("A3:K3").AutoFilter Field:=5, Criteria1:="none"
         .UsedRange.Offset(1, 0).Resize(ActiveSheet.UsedRange.Rows.Count - 1).Rows.Delete 

     End With

Application.DisplayAlerts = True

End Sub
```
Habe ich noch nicht getestet, und es ist aus dem Gedächtnis, so kann es erforderlich, einige Anpassungen, aber es sollte den job zu erledigen, ohne die Schleife durch Tausende von Zeilen. Sie müssen entfernen Sie die 11-Jul so, dass UsedRange korrekt ist, oder ändern Sie den offset auf 2 Zeilen anstelle von 1 in die .Offset(1,0).

In der Regel, bevor ich .Delete ich werde führen Sie das makro mit .Select anstatt der "Löschen" - so kann ich sicher sein, das richtige Angebot wird gelöscht, das kann sich lohnen, um zu überprüfen, dass der entsprechende Bereich gelöscht wird.

InformationsquelleAutor der Antwort Soulfire

Versuchen, diese ...

Dim r as Range
Dim x as Integer

For x = 5000 to 4 step -1 '---> or change as you want //Thanx 4 KazJaw

  set r = range("E" & format(x))
  if ucase(r.Value) = "NONE" then
    Rows(x).EntireRow.Delete
  end if 

Next

InformationsquelleAutor der Antwort matzone

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.