求助：如何对一列数据中 仅保留含有指定字符的行 其他的行全删除

Alwyn321

各位Execl大佬：   小弟求助一个VBA公式：如何对一列数据中 仅保留含有指定字符的行 其他的行全删除；

原来有个vba 公式只能保留其中一个字符不被删， 希望能调整下，改的可以实现仅保留含有指定字符（字符可能有多个）的行 其他的行全删除。

Sub 保留特定字符数据()
Set Rng = Cells.SpecialCells(xlCellTypeLastCell)
r = Rng.Row
c = Rng.Column
For i = r To 1 Step -1
    If Cells(i, 1).Resize(1, c).Find("*CYD*", LookAt:=xlWhole) Is Nothing Then Rows(i).Delete
Next
End Sub