刪除行如果單元格包含文本後第二個連字符

Question

我有一個字符串的長列，例如：

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

所需的結果：

BLUECAT-1 
GREENDOG-804 
BLACKSHEEP-58 

我試圖使用查找功能找到任何具有第二個連字符並刪除該行的字符串。我使用的是「通配符」，但它們需要具體，某些字符串在第一個連字符後只有1或2個數字，而另一些則有3或4.

幫助？

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

只是無論是在開頭和結尾處添加一個「*」你的「是什麼」參數

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