Excel VBA: カーソルのある行と同じデータを持つ行群にマーク？
お世話になります。
以前、現在選択されているセルを含む行の特定の列にマークを打つという問題がありまして、こちらで回答をいただきました。
http://okwave.jp/qa4787458.html
さて、似た問題でまた詰まってしまいました。
「現在カーソルがある行の、ある列の値と、同じ列の値が同じ行のみ、別の列にマークを打つ」というものです。
５行５列のシートがあり、２列目が注目しているデータだとします。
マークは５列目に打ちたいです。
カーソル（アクティブセル）を▽であらわします。
（例題１）
＼ＡＢＣＤＥ
１□□米□□
２□□国□□
３▽□国□□
４□□国□□
５□□米□□
いま、Ａ３がアクティブセルです。
Ｃ２、Ｃ３、Ｃ５に「国」というデータがあります。
Ｃ列の他の行には違うデータ（「米」）があります。
カーソルのある３行目のＣ列の「国」に注目し、同じＣ列に「国」が入っている３つの行のＥ列にマーク（＊）を打ちます。
処理後はこうしたいです。
＼ＡＢＣＤＥ
１□□米□□
２□□国□＊
３▽□国□＊
４□□国□＊
５□□米□□
以下、処理前、処理後でやりたい処理を示します。
（例題２）
＼ＡＢＣＤＥ
１□□国▽□
２□□英□□
３□□国□□
４□□米□□
５□□国□□
＝＞
＼ＡＢＣＤＥ
１□□国▽＊
２□□英□□
３□□国□＊
４□□米□□
５□□国□＊
（例題３）
＼ＡＢＣＤＥ
１□□英□□
２□□国□□
３□□米□□
４□□国□□
５□□国▽□
＝＞
＼ＡＢＣＤＥ
１□□英□□
２□□国□＊
３□□米□□
４□□国□＊
５□□国▽＊
実際にはシートはもっと大きく、注目する列がＣ以外に２列あるパターンもあるのですが、さしあたり上の例について解決したいと思います。
最初は例によって１行１行見ていました。
Sub test()
Dim myRow as long
Dim myCol as long
For myRow = 1 to 65536
For myCol = 1 to 3
If Cells(myRow, myCol).Value = "国" Then
Cells(myRow, 5).Value = "＊"
Exit For
End If
Next myCol
Next myRow
End Sub
しかしこれだとシートが広いので遅くなります。
あるキーを押すと処理が走って、処理中はずっとオペレーターが待っているというフローなので、一瞬でも早くしたいところです。
次に、オートフィルターを使って３列目に「国」がある行を表示にし、上の回答で教えていただいた Intersect 関数を使ってうまくいったのですが、処理前にすでにオペレーターがフィルター設定している場合があり、そのフィルター設定が壊れると作業に支障があるのであきらめました。
処理前のオートフィルターを記憶して、処理後に復元するというのもやってみたのですが、プログラムが複雑になるので避けたい感じです。
なお、Excel 2007 と書きましたが、オペレーターによっては Excel 2003 を使い続けている人がいることが最近判明しました。
今は Excel 2003 形式の XLS にマクロをアタッチして XLSTART に入れさせています。
FileSearch のような 2007 で廃止された機能を使わない限り、2003 のマクロは 2007 で動くようです。
以上です。
よろしくお願いします。
