Excelで指定のｷｰﾜｰﾄﾞを含む行以外を削除したいです｡前回､指定のｷｰﾜｰﾄﾞを含む行を削除したい http://q.hatena.ne.jp/1424769500 という件につきまして､多くの方…

Excelで指定のｷｰﾜｰﾄﾞを含む行以外を削除したいです｡
前回､指定のｷｰﾜｰﾄﾞを含む行を削除したい http://q.hatena.ne.jp/1424769500 という件につきまして､多くの方のご協力をいただきました｡
ありがとうございました｡

今回は､｢指定のｷｰﾜｰﾄﾞを含む行“以外”｣を削除したいのです｡
例えば､｢ﾊﾞﾅﾅ｣というｷｰﾜｰﾄﾞを含む行は残して｡
“ﾊﾞﾅﾅ”という文字列が､部分一致でも入っていない行については削除する｡

といったような処理をﾏｸﾛで行いたいです｡
ご協力いただければ幸いです｡
よろしくお願い致します｡

前回のﾍﾞｽﾄｱﾝｻｰの回答の以下の部分を修正すればいいかと｡

 If InStr(kt(r, 1), keyWord) = 0 Then
 st(r, 1) = r
 Else
 st(r, 1) = DelNum
 End If

↓

 If InStr(kt(r, 1), keyWord) = 0 Then
 st(r, 1) = DelNum
 Else
 st(r, 1) = r
 End If