Excelで指定のキーワードを含む行以外を削除したいです。

前回、指定のキーワードを含む行を削除したい http://q.hatena.ne.jp/1424769500 という件につきまして、多くの方のご協力をいただきました。
ありがとうございました。

今回は、「指定のキーワードを含む行“以外”」を削除したいのです。
例えば、「バナナ」というキーワードを含む行は残して。
“バナナ”という文字列が、部分一致でも入っていない行については削除する。

といったような処理をマクロで行いたいです。
ご協力いただければ幸いです。
よろしくお願い致します。

回答の条件
  • 1人5回まで
  • 登録:2015/03/16 15:29:21
  • 終了:2015/03/17 07:15:40

ベストアンサー

id:taknt No.1

きゃづみぃ回答回数13539ベストアンサー獲得回数11982015/03/16 16:26:39

ポイント300pt

前回のベストアンサーの回答の以下の部分を修正すればいいかと。

       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
id:moon-fondu

ありがとうございます、うまく行が削除されました!

2015/03/17 07:15:28

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません