Excel2003データマッチング方法

質問

どなたかお手すきな時にご教示ください。。

今週中にExcel2003にて、『見込み客と現在の契約者』のリストとを
マッチングをし『見込みの客』から実際にどのくらいご契約いただいたか、
抽出するよう頼まれました。

それも、来年から毎日マッチングをするよう依頼されており、この作業が毎日の作業となります。。

マクロでシステム化したいと考えているのですが、マクロに関しては全くの素人のため
皆さんの知識をお貸しいただきたいです。。

マッチングの内容は下記になります。

---------------------------
【sheet1：見込み客】
セルA：会社名
セルB：会社名（カタカナ）
セルC：担当者名
セルD：担当者（カタカナ）
セルE：メールアドレス
セルF：電話番号1
セルG：お問い合わせID

【sheet2：現在の契約者】
セルA：会社名
セルB：会社名（カタカナ）
セルC：担当者名
セルD：担当者（カタカナ）
セルE：メールアドレス
セルF：電話番号
セルG：お問い合わせID
---------------------------
としたとき、重複しているものがあれば【sheet3】で契約済みと出るように
したいのです。

現在はVLOOKUPを使ってマッチングしているのですがマクロにしたほうが、効率的だという話を聞いたことがあります。以前の担当が退職したため、現在抱えている仕事と両立して行う必要が
あります。今後は毎日の作業となるため、できる限り効率的にできるようにしたいと考えております。

以前の質問も見てみたのですが、少々難解で自分では設定できないため
どなたか上記の設定方法を教えていただけますでしょうか。

回答No.1

okormazd · ベストアンサー

まず、Excelには「セルA」というセルはありません。列Aの間違いでしょうか。
また、見込み客リストも現在の契約者リストも項目がいくつかありますが、どの項目で区別できるのかの指定がありません。IDもないですし、リスト内に重複があるのかないのかも説明がありません。
社名だけできちんと区別できるのでしょうか。

マクロでということですが、もっと質問を具体的な例でやらないと、VBAにできない。
また、これでVBAで回答しても、
「難解で自分では設定できない」
ということなら、実態に合わせて設定することもできないですよね。

VBAじゃなくても、関数で対応できますが、やってみますか。

これも、このままではダメで、実際の作業内容に合わせなければなりませんが。

添付の例です。上段左が、Sheet1、右がSheet2、下段が、Sheet3です。

Sheet3のA3に下記関数を入れて、これは配列数式なので、数式バーにカーソルを置いて、Ctrl+Shift+Enterを押します。
すると、下記のように、数式の両端が{ }で囲まれます。

{=IF(COUNT(IF(ISERROR(MATCH(Sheet1!$A$2:$A$20,Sheet2!$A$2:$A$9,0)),"",ROW(Sheet1!$A$2:$A$20)-1))>=ROW()-2,INDEX(Sheet1!$A$2:$A$20,SMALL(IF(ISERROR(MATCH(Sheet1!$A$2:$A$20,Sheet2!$A$2:$A$9,0)),"",ROW(Sheet1!$A$2:$A$20)-1),ROW()-2)),"")}

ここで、
Sheet1!$A$2:$A$20
は、Sheet1の見込み客リストです。範囲はデータがなくても適当に決めてください。

Sheet2!$A$2:$A$9
は、Sheet2の現在の契約者リストです。範囲はデータがなくても適当に決めてください。

ROW(Sheet1!$A$2:$A$20)-1
は、Sheet1の見込み客リストの位置を決めています。リストが２行目から始まっているので、行番号-1で、２行目のデータが１番目ということです。リストが３行目から始まるのなら、-2します。

ROW()-2
契約済みリストの位置です。契約済みリストの出力が３行目からなので、行番号-2で１番目のデータです。リストを４行目から始めるなら、-3します。

これらは、実際の表に合わせて設定してください。

以下契約済みリストの他の項目も必要なら、
契約済みリストのB3に、
=IF($A3<>"",VLOOKUP($A3,Sheet1!$A$5:$G$20,COLUMN(),FALSE),"")

といれて、下および右方向にフィルドラッグしてください。必要な項目が表示されます。

関数の意味の説明はしませんが、ここまでの説明でうまくいかなかったら、２度ほどは追加質問に応じますが、それ以上は付き合いませんので、あきらめましょう。

お礼

okormazdさん、ご連絡が遅くなり申し訳ございませんでした。

非常に丁寧なご回答ありがとうございました。
また」、知識が足りずに、質問内容が曖昧になってしまい
ご迷惑お掛けしました。。

早速試してみます！