特定のキーワード（複数）が含まれている行を削除

Sub prcDeleteRowsWithSpecificWordsPartialMatch()
    ' A列で特定のキーワードを部分一致で含む行を削除します。

    Dim wks As Worksheet
    Dim arrWords As Variant
    Dim i As Long

    ' 特定のキーワードの配列
    arrWords = Array("word1", "word2", "word3")

    ' 使用するワークシート
    Set wks = ThisWorkbook.Sheets("Sheet1")

    ' 最終行から逆順にループ
    For i = wks.Cells(wks.Rows.Count, 1).End(xlUp).Row To 1 Step -1
        Dim word As Variant
        For Each word In arrWords
            ' InStr関数は部分一致の検索に使用されます
            If InStr(wks.Cells(i, 1).Value, word) > 0 Then
                wks.Rows(i).Delete
                Exit For
            End If
        Next word
    Next i
End Sub