覚え書き

https://oshiete.goo.ne.jp/qa/2692757.html

マクロを使う別の方法です。

XXXの部分を特定の文字に置きかえて実行してください。
また、「特定の文字があれば」というのが、その文字列を含む、というのでなくセルの値がその文字列ならば、というのであれば、LookAt:=xlPart の部分を LookAt:=xlWhole に書き換えてください。

Sub DelLines()
　　Dim R As Range
　　Do
　　　　Set R = ActiveSheet.Range("B:B").Find(What:="XXX", LookAt:=xlPart)
　　　　If R Is Nothing Then Exit Sub
　　　　R.EntireRow.Delete
　　Loop
End Sub