A列とB列の文字列を検索 結果をA列セル色で変化

質問

めぐみと申します。
エクセルのマクロのことで質問させて頂きます。
少し複雑ですみません。

A列とB列に文字列があります。
A列に並んでいる文字を１つずつ検索してB列にその文字列があればA列のその文字があるセルを赤色にするというマクロはできますでしょうか？

お時間のある方がいらっしゃりましたら教えて頂ければ幸いです。
めぐみ

回答No.1

keithin

別にマクロなど使わなくても条件付き書式でできますが？

手順：
Ａ列を列選択する
Ａ１セルがアクティブセルになっている事を確認する
Excel2003までは書式メニューから条件付き書式を開始する
セルの値が　→　数式が　に変えて
右の空欄に
=MATCH(A1,B:B,0)
と記入し，書式ボタンで赤く塗る。

Excel2007以降を使っているならホームタブで条件付き書式▼から新しいルールを開始
数式を使用して…を選んで
下の空欄に
=MATCH(A1,B:B,0)
と記入し，書式ボタンで赤く塗る。

そこを敢えてどうしてもマクロが使いたいんだというご相談なら。
ＡＬＴ＋Ｆ１１を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
　dim r as long
　for r = 1 to range("A65536").end(xlup).row
　　if cells(r, "A") <> "" then
　　if application.countif(range("B:B"), cells(r, "A")) > 0 then
　　　cells(r, "A").interior.colorindex = 3
　　else
　　　cells(r, "A").interior.colorindex = xlnone
　　end if
　　end if
　next r
end sub

お礼

keithinさま

=MATCH(A1,B:B,0)
こんなに簡単にできるのですね！
本当に素早いご回答ありがとうございました！