二つのファイルデータを比較し一致したものを並べる。

質問

こんにちは。VB初心者です。二つ別のファイル（A とB)のデータを比較して、その中で一致したものを並べたいのですが、とっかかりがつかめません。
例えばですが、商店名から下のデータ（一つのエクセルファイルAのシート１）に一致するものを、

EXCEL　FILE A Sheet1
担当者 　価格 　　　地域 　在庫 商品名 商店名
Bさん 　　　　　　　　　 埼玉 　　　 卵 　　　佐藤屋
Cさん 　　　２５０円 　　　神奈川　有り 牛乳 　　　高橋屋

もう一つのエクセルのファイル　（下のデータ、エクセルファイルBシート１）の中から探して、商店名から比較したデータの結果をもう一つのシートに書き込みたいのですが、どうしたら情報を行ごとにマッチングできるのかわかりません（行ごとに情報が違うので）。。簡単にVLOOKUPでデータを拾うのではなく、マクロで比較したいのですが、よろしくお願いします。
EXCEL FILE B Sheet1
商店名 商品名 価格 　　　地域 　担当者 在庫
山田屋 みかん １００円 東京 　Aさん 有り
佐藤屋 卵 　　　２００円　　埼玉 　Bさん 有り
高橋屋 牛乳 　　　２５０円 神奈川　Cさん 有り

あと、情報をマッチングの後、情報が抜けているところ（佐藤屋の価格、在庫）を色（赤）に塗ることができますか？こちらのほうもよろしくお願いします。

回答No.2

imogasi · ベストアンサー

#1です。
小生の誤解で質問内容を変えて解釈しているかもしれないが、１つの参考に。
例え、別の質問であったとしても、今後別の場面で
参考になると思う。
ーー
例データ
Ｓｈｅｅｔ１
調べたい商品の一覧データ。下記では卵とみかん。
担当者 価格 地域 在庫商品名商店名
Bさん 埼玉 卵 佐藤屋
Cさん ２５０円 神奈川 みかん 高橋屋
ーー
例データ（ｆｉｌｅｂからコピーをお勧め）
少し勉強が進んだら、ＦＩＬＥＢを直接対象にしたＶＢＡが組めるだろう。
調べるべき資料データ。
Ｓｈｅｅｔ２
商店名 商品名 価格 地域 担当者 在庫
山田屋 みかん 100 東京 Aさん 有り
佐藤屋 卵 200 埼玉 Bさん 有り
高橋屋 牛乳 250 神奈川 Cさん 有り
井上商店 卵 188 埼玉 Bさん 有り
東京商店 みかん 98 埼玉 Aさん 有り
木村 卵 195 埼玉 Bさん 有り
今村 みかん 92 静岡 Aさん 有り
ーー
コード
標準モジュールに
Sub test01()
l1 = Worksheets("Sheet1").Range("A65536").End(xlUp).Row
MsgBox l1
For i = 2 To l1
c = Worksheets("Sheet1").Cells(i, "D")
MsgBox c
'selection.AutoFilter
Worksheets("Sheet2").Range("A1:F65536").AutoFilter Field:=2, Criteria1:=c
Worksheets("Sheet2").Range("A1").CurrentRegion.Copy Sheets("Sheet3").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Next i
End Sub
ーー
実行結果
Ｓｈｅｅｔ３
商店名 商品名 価格 地域 担当者 在庫
佐藤屋 卵 200 埼玉 Bさん 有り
井上商店 卵 188 埼玉 Bさん 有り
木村 卵 195 埼玉 Bさん 有り
商店名 商品名 価格 地域 担当者 在庫
山田屋 みかん 100 東京 Aさん 有り
東京商店 みかん 98 埼玉 Aさん 有り
今村 みかん 92 静岡 Aさん 有り
ーー
私は商品の区切りとして、あるのも良いと思ったが、
見出し「商店名 商品名 価格 地域 担当者 在庫」が重ねて中間に入っているが、省く方法は
http://officetanaka.net/excel/vba/tips/tips155c.htm　に解説がある。
全般にフィルタのＶＢＡについてこのＷＥＢサイトは参考になる。また田中亨さんの、ＷＥＢのＶＢＡの記事は、常々良さを感じています。
ーー
急いでコードを書いて、テストやチェックが不十分かもしれませんが、よろしく。
参考
上記の例データをシートに再現するには、操作の、データー区切り位置以下で処理すると、セルごとにうまく配置されます。

回答No.1

imogasi

質問の内容（目的）がよく伝わらない。説明がうまくないと思う。
データベースというものの勉強を、してないので要点がはっきり説明できてないと思う。
＞VB初心者です
エクセルＶＢＡの初心者です、が正しいと思う。ＶＢとなると、今はＶＢ．ＮＥＴ時代で相当ＶＢＡと違うから。それが判ってないのが初心者ということかも。
ーー
情報を他ファイルから引いてくるには、キーが必要で、参照される側のデータでは、そのキーが唯一である（ただ一つ（１行）しか現れない）ことが必要。
＞例えばですが、商店名から
「例えば」でなく、この質問では１つに限定して、それについて質問すること。あとは質問者が拡大類推できる力がないと。
あれもこれもは、質問コーナーでは適しない
ーー
ＦＩＬＥＡの「在庫商品名」列で「卵」を読んで、ＦｉｌｅＢの「商品名」列で「卵」の入っている行を調べ（検索して）、ＦｉｌｅＢでの該当行を引っ張ってくる、ということでよいのか。
ＦｉｌｅＢでは、「商品名」が「卵」の行は複数出てくる（可能性はある）のか（どうもありそうだな）。そういう点を、はっきり認識し、説明すべきだ。
ーー
質問の意図がよくわからないが、商品「卵」について、近隣地区（関係）の商店での価格を比べて見たいが、その表を作りたい、というような例え話になるのかな。
ーー
たとえば
ＦＩＬＥＡでの商品「卵」をもとに、ＦＩＬＥＢの｛商品名」列でにフィルタをかけて、結果をＳｈｅｅｔ３に書き出すというのはどうだろう。エクセルＶＢＡにはＦｉｌｔｅｒメソッドがある。
しかし初心者には結構むつかしいと思う。
ーー
個人的には、今回はＦＩＬＥＢのデータをＦＩＬＥＡのＳｈｅｅｔ２にコピー貼り付けして、処理を考えてはどうだろう。他ブックデータを扱うのは初心者には、あれもこれもとなって簡単ではなくなるから。