シート内の重複するセルを検索するマクロについて

質問

マクロ初心者です。

一つのセルに、所属、氏名、評価（Ａ、Ｂ、Ｃ、Ｄ）の情報が入っており、対象者が100名います。
100テーマから、一人に対し、第1希望から第５希望まで希望テーマを提出され、
テーマに人を振り分けようとしています。
縦軸にテーマＮｏ．横軸に、第1希望から第5希望をとります。
例えば、Ａさんをダブルクリックすると、Ａさんが希望する他の4テーマに配置された
重複するセル情報を検索し、重複セルを同時にハイライト（色）がつくようなマクロを検討しています。

セル情報
（所属(1)）
山田太郎Ａ

数値を対象としたものから引用し、見よう見まねで書いたのですが、検索値が多い為か、
フリーズしてしまいます。。
このような場合、どのようにしたら宜しいでしょうか？
厚かましいのですが、どなたか、ご教授願えませんでしょうか？
どうぞ宜しくお願い致します。

回答No.2

tsubuyuki

申し訳ないです。
どういう処理をしたいのか、全く見えてきません。
なので構文云々のアドバイスはできません。

> 対象者が100名います。
> 100テーマから、一人に対し、第1希望から第５希望まで
と言うことなので、処理回数は５万回くらいでしょう。
多く見てもその倍に達しないくらいと思います。
それで
> フリーズしてしまいます。。
と言うことは、恐らくですが根本的なところで何かを書き間違えていて、
それが元でいわゆる無限ループでも引き起こしているのだと思いますよ。

１番さんがおっしゃるように、地道にデバッグ・・
ステップインモードでも使って１行ずつチェックしていくのが近道と思います。

技術的なアドバイスが一つあるとしたら、
> セル情報
> （所属(1)）
> 山田太郎Ａ
これを３セル（所属・氏名・評価）に分けたら、少しだけやりやすいんじゃないでしょうか？

・「所属」の前後の（）が全角であること
・評価はアルファベット１文字であること
・それらがＡ１セルに入っていること
が条件としてクリアできるなら
　Ｂ１セル・・・=MID(A1,1,FIND("）",A1))　　　←"）"内の「）」は全角（以下同）
　Ｃ１セル・・・=MID(A1,FIND("）",A1)+1,LEN(A1)-FIND("）",A1)-1)
　Ｄ１セル・・・=RIGHT(A1,1)
で分割できますので、あとはコピー→数値貼り付けすると使いやすいように思います。

希望する処理がはっきりしない、現行の構文もわからない状況では、これが限界です。

回答No.1

K Kazz（@JazzCorp）

マジメにデバッグする、
僅か100テーマ、100人分なので、アキラメてさっさと目視で何とかする、、、さぁ～どっち？？