検索値で枠内を検索して一致したら黄色に塗潰す。

質問

このカテゴリーのエクセルの達人の方々に質問です。
どなたか回答して頂ける方がおみえでしたらよろしくお願いします。
（ちゃんとした回答ではなく、文句やクレーム等を混ぜた記載はご遠慮ください。
　私の質問が気に入らない場合は無視して頂ければ結構です。）
【質問】
　添付図のとおり、35列×6行の中に数字が１～37まであり、
　重複数字を含んでおります。また、AL列とAM列は54行で、
　数字が１～37まであり重複数字を含んでおります。
　AL1とAM1の２つの値で、35列×6行の中を検索して一致したら
　セルを黄色に塗り潰します。これを、AL列とAM列の
　最終行（54行目）まで繰り返します。
　上記を実現する方法をＶＢＡで実現する方法が知りたいです。

【注意事項】
　　・35列×6行の中にある数字の並びは毎回異なります。
　　・枠線や塗り潰しの黄色、検索対象～、検索値～は説明の
　　　ために付けているだけです。
　　・AL列とAM列は２つで１つの値として昇順に並んでいます。
　　・ＶＢＡで実現する方法～、と書きましたが、
　　　同様のことが他の方法でも実現できればそれを教えて下さい。
　　・使用するエクセルは２０２１です。

以上、よろしくお願いします。

回答No.2

SI299792 · ベストアンサー

VBA でなくてもいいのなら、

A1:AI6
を選択

条件付き書式、数式。
=COUNTIFS($AL:$AL,A1,$AM:$AM,B1)+COUNTIFS($AL:$AL,XFD1,$AM:$AM,A1)

お礼

ＶＢＡにこだわっていませんので 教えていただいた、条件付き書式で早速実行したところ、良い感じになりました。 （このあとちゃんと塗りつぶし確認はします。）ありがとうございました。

Powered by GRATICA

回答No.1

kkkkkm

コードを実行して検証するのがとんでもなく大変そうなので回答ではないのですが

疑問点がありましたので

35列×6行の表で
1,2,6
と並んでいた場合
AL列とAM列に
1,2
2,6
があった場合
1,2,6
全て塗りつぶしでしょうか(既に塗りつぶしたものも対象になる)
それとも
1,2
だけ塗りつぶしでしょうか(既に塗りつぶしたものは対象外)

AI1が1でA2が2の場合(改行して一致した場合)塗りつぶしでしょうか。

補足

お世話になります。
塗潰しの仕方ですが、記載して頂いた以下の方法で考えてます。

＞全て塗りつぶしでしょうか(既に塗りつぶしたものも対象になる)