マスタシートと同じデータがあれば横にデータを貼り付けていく。

質問

シート１の品番を基準にし、シート２に同じ品番があればシート１の品番とデータの横にシート２のデータを貼り付けていく。次にシート３に移り繰り返し。

(シート１)
｜ A ｜ B ｜ C ｜ D
1 ｜ 1a｜ 1 ｜ 9 ｜ 2
2 ｜ 2a｜ 4 ｜ 7 ｜ 1
　・
　・
　・
A列に品番、B列に枚数、C列に最高数、D列に最低数が入ってます。

(シート２)
｜ A ｜ B ｜ C ｜ D
1 ｜ 1a｜ 2 ｜ 8 ｜ 1
2 ｜ 3a｜ 3 ｜ 5 ｜ 3
・
　・
　・
シート１と同じ形式です。

(シート１)↓こうしたいです。

｜ A ｜ B ｜ C ｜ D ｜ E ｜ F ｜ G ｜
1 ｜ 1a｜ 1 ｜ 9 ｜ 2 ｜ 2 ｜ 8 ｜ 1 ｜
2 ｜ 2a｜ 4 ｜ 7 ｜ 1 ｜

A列の品番と同じであればその横（列）に枚数、最高数、最低数のデータを貼り付けていきたいのです。

シート数とデータ数はその時々により減ったり増えたりと変化します。

エクセル2000です。
わかる方、よろしくお願いします。

回答No.2

NOBNNN

#1 です
ADOを使うとあたかもMDBのごとく EXCELシートを
テーブルにみたててクエリで操作できます。

だから、クエリ(SQL)と　EXCEL　VBAの組み合わせで
いろいろとできるのです。

まずは誰かのコードをまねて作成してみてください。

　GOOgle などで　「ADO ADOX 入門」と入力するとたくさん出ますよ。
_____________________________________________________

【参考】

◆[HOWTO] VB または VBA から ADOX を Excel データで使用する
http://support.microsoft.com/kb/303814/ja

◆ADO ←　VBSでもEXCEL　でも実行可能なコードの紹介
http://tuka.s12.xrea.com/index.xcg?p=ADO

◆ ActiveX Data Object ： ADO入門講座 ←　ACCESS 2000以上のバージョン
http://www.accessclub.jp/ado/

◆ Ｖisual　Basic 中学校 　
　　http://homepage1.nifty.com/rucio/main/main.htm

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

ほか　SELECT　については　以下サイトなど

◆SQL入門
　http://sql.1keydata.com/jp/

___________________＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
以上

お礼

ありがとうございます。
もともとアクセスで行っていた処理をエクセルに移行してほしいと頼まれたのです。これならエクセル上でクエリの操作ができるのですね！
むずかしいですが、がんばって勉強したいと思います。

回答No.1

NOBNNN

【参考】
◆ADO を使用して Excel ワークシートにクエリを実行する
http://www.microsoft.com/japan/technet/scriptcenter/resources/officetips/jun05/tips0607.mspx

◆他形式のファイルから Jet データベースへのインポート方法
http://support.microsoft.com/kb/410871/ja/
______________________________________________________________________________________

EXCEL を　SELECT で抽出できます。

だから、次のようにプログラムすればEXCEL ワークシートに抽出結果を作成すれば
可能です。

SELECt Excelシート１.*, Excelシート2.*,
Excelシート3.*, Excelシート4.*,Excelシート5.*
FROM Excelシート１
LEFT Outer JOIN Excelシート2
On KEY Excelシート１.ID = Excelシート2.ID
LEFT Outer JOIN Excelシート3
On KEY Excelシート１.ID = Excelシート3.ID
LEFT Outer JOIN Excelシート4
On KEY Excelシート１.ID = Excelシート4.ID
LEFT Outer JOIN Excelシート5
On KEY Excelシート１.ID = Excelシート5.ID

________________________________________________________
実際には子レコード（Excelシートｘｘ）の結果がない場合も
ありえるので　抽出結果を調査して、もし空なら無視すればOK
です。
あとは抽出結果を　Excelの新規BOOk にデータを書き込んで
ゆけば出来上がりです。
以下のサンプルを参照
_______________________________________________________
・サンプル(Excelの新規BOOk にデータを書き込み)

DIm W_row as Integer

Do Until objRecordset.EOF

W_row = W_row + 1

Workbooks(P_MyXlsFname).Sheets(1).Range("A" & W_row).Value = objRecordset.Fields.Item("Excelシート2.項目１")

objRecordset.MoveNext
Loop　
_______________________________________________________
実際のコーディングには ADOなどの知識が必要です。
※今回はポイントのみの回答です。
　実際のコード二ついては以上をご参考に作成してみてください。

以上

お礼

回答ありがとうございます。
すみません、マクロ初心者の為理解が難しいです
アクセスを間に入れての処理になるのでしょうか？

よろしければADOについてのおすすめの書籍かサイトを教えていただけますか？本屋を探したのですが、置いてなく…

よろしくお願いします。