VBAで特定の値に一致しないセルを探したい

Question

前提・実現したいこと

29個の単語があり、すべての単語に一致しないセルを1行ごとに探したいです。

発生している問題・エラーメッセージ

if文ですべての値を分岐していく方法しか思いつかないのですが、
他に何か方法があるのでしょうか。

該当のソースコード

試したこと

補足情報（FW/ツールのバージョンなど）

Answer 1

スマートではないですがこんな方法もあります。

作業列を作って29個の単語に当てはまるかCountif
オートフィルターで作業列が0のものを抽出

表が大きすぎると時間がかかっちゃいますが。

---

タイミングが悪く解決済後の回答になってしまいました。
失礼しました。

Answer 2

いろいろ方法はあります。
単語を配列に入れるなら下記とか。

【ExcelVBA入門】配列内部の検索方法!高速化対応についても徹底解説 | 侍エンジニアブログ

あるいは、下記のようにInStrを使うというのもシンプルかつ高速です。

Dim Words As String
Words = " AAA BBB CCC DDD EEE "

If InStr(Words, " " & Cells(1,1).Text & " ")=0 Then
    MsgBox Cells(1,1).Text & "と一致する単語はないです。"
End If

上記は一つのセルとの比較ですので、これをFor Next 構文で各行ループ処理させればいいでしょう。

Comments

[job_ao]

こちらのやり方で思った結果を得ることが出来ました。
丁寧にありがとうございました、

Answer 3

単語を配列に入れてforループあたりで一括処理すればよいのではないでしょうか？
検索キー: vba for 書き方

ちなみに、もっとアドバイスが欲しいなら
if文がたっぷり29個でも現状のコードが掲載してください。
このままだと丸投げになるので。

Comments

[job_ao]

回答ありがとうございます。次回はコードを掲載するようにします。