Zeile löschen Wenn Zelle enthält Text Nach dem Zweiten Hyphen

Question

ich eine lange Kolonne von Strings haben, Beispiel:

GREENCAT-01-AB-01 
BLUEDOG-800-CC-1 
BLUECAT-1 
GREENDOG-804 
BLACKSHEEP-58 
PINKMOUSE-900-AB 

Gewünschtes Ergebnis:

BLUECAT-1 
GREENDOG-804 
BLACKSHEEP-58 

Ich versuche, die Suchfunktion verwenden Sie finden Zeichenfolge, die einen zweiten Bindestrich enthält und diese Zeile löscht. Ich habe "Wild Cards" verwendet, aber sie müssen spezifisch sein und einige Strings haben nur 1 oder 2 Zahlen nach dem ersten Bindestrich, während andere 3 oder 4 haben.

Hilfe?

Set SrchRng = WS.Range("A1:A" & LastRow) 
    Do 
    Set c = SrchRng.Find(What:="-***-", LookAt:=xlPart) 
     If Not c Is Nothing Then c.EntireRow.Delete 
    Loop While Not c Is Nothing 

Answer 1

einfach ein „*“ hinzufügen sowohl am Anfang als auch am Ende des „Was“ Parameter

Set SrchRng = ws.Range("A1:A" & lastRow) 
Do 
    Set c = SrchRng.Find(What:="*-*-*", LookAt:=xlPart) 
    If Not c Is Nothing Then c.EntireRow.Delete 
Loop While Not c Is Nothing