エクセル　メール管理　複数キーワードを省く方法

＃０１です。
「省きたい」の意味は先の回答で合っていましたか。それであればマクロ(VBA)で検索キーワードを含む行を削除するようにしてみます。

以下のマクロをALT＋F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。マクロの実行はALT＋F8でマクロ一覧を開き、マクロ名を選択して「実行」ボタンです。

キーワードは２０個書けるようにしていますので、４行目～７行目を修正して下さい。キーワードは「,（半角カンマ）」で区切る必要があります。また対象のリストはA列にあることにしています。もし別の列なら１２行目の
　Cells(rCnt, "A")
で　"A"　の部分を正しい列名に直して下さい

なおマクロの実行結果はUNDOで復活できません。実行前に必ずファイルのセーブを取っておいてください

Sub Macro1()
Dim keyword() As String
Dim idx, rCnt As Long
　keyword = Split("bank,fudousan,camera,@xxxxx.com,Keyword5" _
　　　　　& ",Keyword6,Kerword7,Keyword8,Keyword9,Keyword10" _
　　　　　& ",Keyword11,Keyword12,Keyword13,Keyword14,Keyword15" _
　　　　　& ",Keyword16,Keyword17,Keyword18,Keyword19,Keyword20" _
　　　　　, ",")
　Application.ScreenUpdating = False
　For rCnt = Range("A65536").End(xlUp).Row To 1 Step -1
　　For idx = 0 To UBound(keyword)
　　　If InStr(Cells(rCnt, "A"), keyword(idx)) > 0 Then
　　　　Rows(rCnt).Delete
　　　　Exit For
　　　End If
　　Next idx
　Next rCnt
　Application.ScreenUpdating = True
End Sub

VBAで行っても、５万行もあればそれなりに時間がかかります。マクロ実行がなかなか終わらなくても焦らないでください。どうしても途中で止めたかったら　ESCキーを何度か叩くと止めることができます。

VBAならシートに関数を埋め込む必要がなくなるので、シートで入力操作を行っているときに動作が遅くなっていらいらするようなことはなくなります。関数を使うか、VBAを使うかはお好みだと思います

投稿日時 - 2007-09-18 19:43:42

A列に調べたい文字列が（１万行）あるとして、空いている列（例えばF列）のF1:F20に検索キーワード（bank,fudousan,camera…）を入力します

１行目の空き列に
　=IF(MIN(INDEX(FIND($F$1:$F$20,A1&$F$1:$F$20),))>LEN(A1),"×","○")
を貼り付けて下方向にコピーすると、検索キーワードがあれば「○」、なければ「×」が表示されます。
後はオートフィルタで「×」を抽出して、行をまとめて削除してください

ただし１万行もあると処理がかなり重くなるかもしれません。そのときはVBAの方が実用的ですね。

投稿日時 - 2007-09-18 17:59:40