検索サイト等で調べてみたのですが
ちょっとわからなかったので
どなたかおわかりの方はお教えください。
メールのリストの中から例えば1万件の中から
その中から 特定のワード bank / fudousan / camara や@xxxxx.comといったキーワード20件以上を省きたいという場合
今までは
一つずつ bankを検索をかけて リストを出し
fudousanを検索かけ リストを出してといったように
20件省きたいワードがあれば20回検索しないといけなかったのですが
関数等をつかって 省きたいワードリストから
手早くメールリストから特定のアドレスを省きたい
もしくは省くように数値で代換するといった方法は
どのようにすればよろしいのか
知っている方いらっしゃいましたら教えてください。
なんとなくlook upやvlook upといった関数からできそうな感じはしたのですが、ちょっとよくわからなかったので
教えてくださいますと大変助かります。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
#01です。
「省きたい」の意味は先の回答で合っていましたか。それであればマクロ(VBA)で検索キーワードを含む行を削除するようにしてみます。
以下のマクロをALT+F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。マクロの実行はALT+F8でマクロ一覧を開き、マクロ名を選択して「実行」ボタンです。
キーワードは20個書けるようにしていますので、4行目~7行目を修正して下さい。キーワードは「,(半角カンマ)」で区切る必要があります。また対象のリストはA列にあることにしています。もし別の列なら12行目の
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で行っても、5万行もあればそれなりに時間がかかります。マクロ実行がなかなか終わらなくても焦らないでください。どうしても途中で止めたかったら ESCキーを何度か叩くと止めることができます。
VBAならシートに関数を埋め込む必要がなくなるので、シートで入力操作を行っているときに動作が遅くなっていらいらするようなことはなくなります。関数を使うか、VBAを使うかはお好みだと思います
No.1
- 回答日時:
A列に調べたい文字列が(1万行)あるとして、空いている列(例えばF列)のF1:F20に検索キーワード(bank,fudousan,camera…)を入力します
1行目の空き列に
=IF(MIN(INDEX(FIND($F$1:$F$20,A1&$F$1:$F$20),))>LEN(A1),"×","○")
を貼り付けて下方向にコピーすると、検索キーワードがあれば「○」、なければ「×」が表示されます。
後はオートフィルタで「×」を抽出して、行をまとめて削除してください
ただし1万行もあると処理がかなり重くなるかもしれません。そのときはVBAの方が実用的ですね。
どうもありがとうございます。
教えて頂きましたとおりに実行しましたら
エクセルの初心者の私でも出来ました。
どうもありがとうございます。
実際データは5万件以上あるので
もしお分かりで差し支えがなければ
VBAというやり方をご存知でしたら
どのようにやればいいかお教え頂けますと
大変助かります。よろしくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PowerPoint(パワーポイント) PowerPointの箇条書きの既定のリストを変更する方法について 1 2022/12/15 18:41
- Excel(エクセル) 【エクセル】COUNTIFの検索条件が可変する数字の場合の数式 1 2022/09/27 15:34
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Excel(エクセル) エクセルでこのようなことはできますか? 3 2022/07/10 19:57
- Excel(エクセル) セルの値をグーグルで検索するエクセルVBAについて! 2 2022/08/01 21:41
- Excel(エクセル) Excel 値を返す数式についてです 3 2022/11/21 20:08
- Chrome(クローム) 下に出てくるリストを消したい。 2 2022/06/17 16:47
- Excel(エクセル) エクセルVLOOK関数について 3 2022/07/05 08:45
- Excel(エクセル) Excelで、別シートへ情報を参照表示する関数について。 2 2023/06/26 09:58
- その他(IT・Webサービス) Googleマップで検索した結果のリストを作る方法はありますか? 1 2022/11/15 10:17
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワード、上下中央揃えにしたい...
-
A4縦の2枚のワードをA3にするや...
-
互換性のないSafariからみた画...
-
KADOKAWA電撃大賞の互換ソフト...
-
A4サイズ横位置というのは ワー...
-
ワードやエクセルのファイルの...
-
ワードが白と黒が反転してしま...
-
パソコンで見た時とスマホで見...
-
ワードの差し込み文書で困って...
-
txtってパソコンでも横書きに表...
-
スマホで横書きでもパソコンで...
-
なぜワードで開けず互換性ソフ...
-
office365のワードがプリントで...
-
スマホの文書って見え方がどう...
-
ワードの行✖️文字数について。 ...
-
ワードで名刺作成。枠線の同じ...
-
右側に半券のついたチケットを...
-
MicrosoftのOfficeに代わるソフ...
-
「ワード」で行間を詰めて「メ...
-
txtって、ページ番号振れないん...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワードの行✖️文字数について。 ...
-
A4縦の2枚のワードをA3にするや...
-
A4サイズ横位置というのは ワー...
-
アップルに電話したけどやはり...
-
ワード、上下中央揃えにしたい...
-
ワードってスマホから見ると、...
-
スマホで横書きでもパソコンで...
-
txtのファイルから編集してもい...
-
スマホアプリのワードが横書き...
-
ワードのこと教えてくれるとこ...
-
スマホのワードが開かないのっ...
-
https://dengekitaisho.jp/nove...
-
表示かダウンロードのどちらか...
-
最近MacBookに変えました。 マ...
-
これってワードですか? 先方が...
-
KADOKAWA電撃文庫のSafariで見...
-
txtって、ページ番号振れないん...
-
スマホの文書って見え方がどう...
-
普通の場合は400字詰め換算でも...
-
これらアプリって購入済みにな...
おすすめ情報