Question

I have a huge data set and I want to extract the rows which do not have certain keywords.

For example, let says I have the following data set (two columns):

+--------------+------------------+ 
| Nylon        |  Nylon wire      | 
| Cable        |  5mm metal cable | 
| Epoxy        |  some comment    | 
| Polyester    |  some comment    | 
+--------------+------------------+

I want to find the rows which do not contain the keywords Nylon and Epoxy (and other keywords for that matter) and put those rows in another place (i.e. sheet).

Thanks in advance!

Answer 1

Sub a()
  With Worksheets(1)
    j = 1
    For i = 1 To .UsedRange.Rows.Count
      If .Rows(i).Find(what:="Nylon") Is Nothing And .Rows(i).Find(what:="Epoxy") Is Nothing Then
        .Rows(i).Copy Destination:=Worksheets(2).Rows(j)
        j = j + 1
      End If
    Next i
  End With
End Sub