2つの表を統合するＶＢＡマクロについて（２）

質問

「2つの表を統合するＶＢＡマクロについて」での質問を補足いたしますのでどうかお力をお貸しください。
前回の質問で例にあげたsheet1の表とsheet2の表を統合してsheet3に統合表を作りたいのですが、どのように統合したいのかといいますと、

(1)それぞれの表のA列をキーに、sheet1にもsheet2にもあるデータは新たに統合する表に採用します。前回の例でいうと、sony1,2,5,7ですね。この両者共通のものは新たに統合する表には、sheet2の方のデータを採用します。（複数ある場合は全て採用します。)
(2)次にsheet1にしかないデータは統合する表に採用します。前回の例ではsony003が該当します。
(3)最後にsheet2の方にしかないデータは統合する表には採用しません。無視します。
この(1)から(3)を実行して下記のようは統合表を作成したいのです。

（sheet3 統合表）
　　A 　　B 　　C 　　　D
sony001 男　　東京　Japan　←（sheet2のデータ）
sony002 女　　埼玉　Japan　←（sheet2のデータ）
sony002 女　　千葉　U S A　←（sheet2のデータ）
sony003 女　　千葉　U S A　←（sheet1のデータ）
sony005 女　　東京　Russia　←（sheet2のデータ）
sony007 男　　東京　U S A　←（sheet2のデータ）
sony007 女　　東京　Russia　←（sheet2のデータ）

そしてできれば採用されなかった(無視されたデータ)をsheet4にリストアップしたいのです。

（sheet4 無視されたデータ）
sony004 男　　大阪　Canada
sony006 女　　東京　Russia

このような処理を自動的にできるＶＢＡマクロがわかる方がいらっしゃいましたら、どうかご教授くださいませ。データが大量なので手動ではとても時間がかかってしまい困っております。どうかお力をお貸しください。よろしくお願いいたします。

回答No.2

marsah

こんばんわ。　私はVBAは苦手なので、VBA無しで無理やりやる方法を考えてみました。　かえって面倒かもしれませんし、検証していません。(笑)

１.　sheet1 と sheet2 においてフィールドAが共通のレコードを選択

　クエリのデザインビューでsheet1とsheet2を、フィールドAで結合し、結合のプロパティは“両方のフィールドが同じ行だけを含める”とします。　選択フィールドは、sheet2.[主キーフィールド名] , sheet2.A , sheet2.B , sheet2.C , sheet2.D , ... とします。　このクエリをqueryXとします。

２.　sheet1のフィールドAにあって sheet2のフィールドAに無い値を持つレコードを選択

　データベースウィンドウでオブジェクトにクエリを選び、新規作成を押して不一致クエリウィザードを選びます。　最初にqueryXを選び、比較するものにsheet1を選びます。　このクエリをqueryYとします。

３.　queryXとqueryYをサブセット化する

　sheet1とsheet2に同じ値の主キーが含まれている可能性があるときは、どちらかのクエリに細工します。　例えば、元の主キーフィールドを非表示にして、新たなフィールドに“新主キーフィールド名: [主キーフィールド名]+10000”のようにして主キーの代わりとし、sheet1とsheet2に同じ値の主キーが含まれないようにします。

４.　queryXとqueryYを連結する

　デザインビューでクエリを作成する->テーブルやクエリを追加せず閉じる->SQLビュー とします。
SELECT [queryX].[主キー用フィールド名] , [queryX].[B] , [queryX].[C] , [queryX].[D] , ... FROM [queryX]
UNION ALL
SELECT [queryY].[主キー用フィールド名] , [queryY].[B] , [queryY].[C] , [queryY].[D] , ... FROM [queryY]
と直接入力し、queryZとします。

５.　テーブルを作成する

　新規クエリでqueryZの全フィールドを選択し、クエリの種類->テーブル作成を選択し、！を押します。

[主キーフィールド名]は該当するフィールド名に置き換えてください。　, ... の意味は、その他の必要なフィールド全てを、ということです。

無視されたデータは、２.の応用->５.で可能です。

お邪魔しました。

お礼

marsahさん、ご回答ありがとうございます。この処理はACCESSでの処理ですね。私も以前からデータベースを使用して見たいと思っておりましたので大変参考になります。今回の質問での処理は基本的にExcelでのことを想定しておりましたので、時間をとってACCESSでも挑戦してみようと思います。実は処理するデータが大量なので、データの加工をする際にもデータベースを使用した方がいいのか、社内でも案件が出ているところなのです。データに対する処理の使用が複雑になるたびにデータベースソフトの方がいいのかなぁ等と考えてしまいますが、データが大量・処理が複雑＝データベースの方がよい、ということでもなさそうなので、安易に転換してしまっていいものかとも思っております。でも今回のmarsahさんのご回答はデータベースに挑戦してみようかな、という気持ちにさせていただきましたので、お力をお借りすることがあるかもしれません。その際にはどうぞよろしくお願いいたします。