-excel-違うブックの文字列を含む行の抽出

質問

商品の価格を一括で変更できる方法を探しているのですが見つからず困っています。

全ての商品データが載ってるブックAがあります。価格を変更する商品のIDと値下げ後の値段が載っているブックBがあります。ブックAの商品価格をブックBの値下げ後価格に変更したいのですが、関数か、マクロなど何か良い方法はないでしょうか？

最悪価格は手動で変更するとしてせめてブックBのIDと合致するセルを持つブックAの行を抽出する方法はないでしょうか？抽出した行は別ブックにまとめてくれるとなお助かります。

ちなみにブックAには7000行、ブックBには1000行のデータがあります。

ブックA（商品データ）

A列・・・・・・　　　　F列・・・・・・・・
ID　　　　　　　　　価格
1234　　　　　　　　2500
2345　　　　　　　　3200
3456　　　　　　　　1200
4567　　　　　　　　3000
5678　　　　　　　　1800

ブックB（価格変更データ）
A列　　　　　　　　B列
ID　　　　　　　　　価格
2345　　　　　　　　2600
5678　　　　　　　　1500

↓
ブックA（商品データ）もしくは新規ブックC

A列・・・・・・　　　　F列・・・・・・・・
ID 　　　　　　　　　価格
1234　　　　　　　　2500
2345　　　　　　　　2600
3456　　　　　　　　1200
4567　　　　　　　　3000
5678　　　　　　　　1500

といった感じです。どなたかお知恵をお貸しください。よろしくお願いいたします。

回答No.3

keithin · ベストアンサー

IDがブックBにあればそれを採用，無ければブックAを採用します

準備：
ブックCに完全なIDの一覧を作成する（手順が判らなければ別途ご質問）
ブックAのIDがパーフェクトなら，それをコピーしてくるだけです。

手順：
ブックA,B,Cを開いて並べておく
ブックCのＦ列に
F2：
=VLOOKUP(A2,IF(ISERROR(MATCH(A2,[bookB.xls]シート名!A:A,0)),[BookA.xls]シート名!A:F,[BookB.xls]シート名!A:F),6,FALSE)
と記入し，リスト下端までコピーして埋める

改めてＦ列をコピーし，その場で形式を選んで貼り付けの値のみ貼り付けて値化する。

＃参考
ご利用のエクセルのバージョンが明記されていませんが，Excel2007以降を使っているなら，IFERROR関数を使ってもう一段簡単な数式に出来ます。計算のリクツは同じなので特に解説しませんが，必要に応じて勉強してみてください。

お礼

お礼が遅れてしまって大変申し訳ありません。keithinさんの方法でやってみたのですが、データが重すぎたのか記述を間違ったのか、ブックの内容が消えてしまいました。保存はしなかったので問題はなかったのですが。結局は商品の値段変更は別の方法ですることになりました。VLOOKUPは今後自分でできるように、勉強していきたいと思います。どうもありがとうございました。

回答No.2

imogasi

こんな課題はエクセル関数のＶＬＯＯＫＵＰ関数（エクセルを使う人の常識の関数）のＦＡＬＳＥ型で出来るのではないか。
他ブック参照という特徴があるにしても。
エクセルの関数の本も読まず、ＷＥＢも照会しておらず、スクールにも通ってないのでしょう。
Ｇｏｏｇｌｅででも「エクセル　ＶＬＯＯＫＵＰ関数」で照会すれば、膨大な数の記事がある。
実例つきのものをさがして、どういう関数かまず勉強すること。
それから「見つからない場合のこと」、「検索表が他ブックにある場合など」を勉強のこと。
ＶＢＡでも出来るが、質問者のようでは、コードを回答者に作ってくれと言うに等しい（丸投げ）。
Ｇｏｏｇｌｅで「エクセル　ＶＬＯＯＫＵＰ　他ブック参照」など勉強のこと。

回答No.1

tom04

こんばんは！
VBAでの一例です。

それぞれのデータは各BookのSheet名が「ブックA」の「商品データ」・「ブックB」の「価格変更データ」にあるとします。

「ブックA」を一旦開きます。
Alt＋F11キー　→　VBE画面　→　画面左にある「This Workbook」をダブルクリック　→　↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub test() 'この行から
Dim ws1, ws2 As Worksheet
Dim i, j As Long
Set ws1 = Workbooks("ブックA").Worksheets("商品データ")
Set ws2 = Workbooks("ブックB").Worksheets("価格変更データ")
For i = 2 To ws1.Cells(Rows.Count, 1).End(xlUp).Row
For j = 2 To ws2.Cells(Rows.Count, 1).End(xlUp).Row
If ws1.Cells(i, 1) = ws2.Cells(j, 1) Then
ws1.Cells(i, 6) = ws2.Cells(j, 2)
End If
Next j
Next i
End Sub 'この行まで

尚、一旦マクロを実行すると元に戻せませんので、
元データを別Sheetにコピーしておきマクロを試してみてください。

参考になれば良いのですが・・・m(_ _)m