جستجوی زیر رشته در اکسل

کد زیر چگونگی جستجوی رشته هایی که دارای زیر رشته ای خاص هستند را نشان میدهد

Public Sub Search()
For i = 102 To 1 Step -1
  If Cells(i, 1) Like "*-excel" Then
    Rows(i).Delete Shift:=xlToUp
  End If
  Next i
End Sub