Excel2000で、データの比較とコピー

質問

こんばんは！
シート１に

お店　商品コード　商品名　　金額
01　　05000　　　 みかん　　500
01　　05010　　　 メロン　　1000
02　　01000　　　 いちじく　300

とあり、
シート２に

お店　商品コード　商品名　　金額
01　　05000　　　 みかん　　500
01　　05010　　　 メロン　　1300
02　　01000　　　 いちじく　300

となっている場合に、

商品コードが同じものの行を比較して、金額の変更があったら、シート３に

01　　05010　　　 メロン　　1300

と行ごとコピーをしたいのですが、どのようにすれば良いでしょうか？

何か良い関数や、マクロなどありましたらご伝授願います。

回答No.5

beer55 · ベストアンサー

お晩です

配列数式です
Sheet3のA2に=IF(SUM((Sheet1!$A$2:$A$4=Sheet2!$A$2)*(Sheet1!$D$2:$D$4<>Sheet2!$D$2))<ROW(A2)-1,"",INDEX(Sheet2!A2:A4,SMALL(IF((Sheet2!$A$2:$A$4=Sheet2!$A$2)*(Sheet1!$D$2:$D$4<>Sheet2!$D$2),ROW($A$2:$A$4)-1),ROW(A2)-1)))と入力
又はこの式をコピーしても良いですが配列数式ですので、コピー後は
配列数式ですので「Ctrlキー」+「Shiftキー」を押しながら「Enterキー」を押してください。
右(D2まで)、下にコピー

配列数式については、下記のホームページを参照してください。
http://pc21.nikkeibp.co.jp/special/hr

ダメでしょうか

参考URL：

http://pc21.nikkeibp.co.jp/special/hr

お礼

ありがとうございます。
参考になりました！

回答No.4

imogasi

（例データ）
Ｓｈｅｅｔ５に
お店　 商品コード　 商品名　　金額
1 5000 みかん　　 500
1 5010 メロン　　 1000
2 1000 いちじく　 300
3 2000 リンゴ 　　　　　1800
4 4000 バナナ 　　　　　700
Ｓｈｅｅｔ６に
お店　 商品コード　 商品名　　金額
1 5000 みかん　　 500 0
1 5010 メロン　　 1300 1
2 1000 いちじく　 300 1
3 2000 リンゴ 　　　　　2000　　 2
4 4000 バナナ 　　　　　800　　　 3
としてＳｈｅｅｔ６のＥ１に
=IF(D2<>VLOOKUP(C2,Sheet5!$C$2:$D$7,2,FALSE),E1+1,E1+0)といれ、下へ複写します。$D$7は最下行で見積もってください。
結果はＳｈｅｅｔ６の上記Ｅ列（金額列の右列）のとおりです。
Ｓｈｅｅｔ７の
Ａ１に
=INDEX(Sheet5!$A$2:$D$6,MATCH(ROW(A1),Sheet6!$E$1:$E$5,0)-1,1)
Ｂ１に
=INDEX(Sheet5!$A$2:$D$6,MATCH(ROW(B1),Sheet6!$E$1:$E$5,0)-1,2)
Ｃ１に
=INDEX(Sheet5!$A$2:$D$6,MATCH(ROW(C1),Sheet6!$E$1:$E$6,0)-1,3)
Ｄ１に
=INDEX(Sheet5!$A$2:$D$6,MATCH(ROW(D1),Sheet6!$E$1:$E$6,0)-1,4)
といれ（最後の引数だけ１づつ増える）各列を第３行まで複写する。
Ｓｈｅｅｔ６より金額を取ってくるのは略。
（結果）
Ｓｈｅｅｔ７には
1 5010 メロン　 1000
3 2000 リンゴ 1800
4 4000 バナナ 700

お礼

ありがとうございます。
参考になりました！

回答No.3

BLUEPIXY

＃２です。
すみません。
Ｄに＄つけるの忘れてました。

回答No.2

BLUEPIXY

シート１とシート２がもともと同じもので、
金額が変更されたかどうか調べて値をコピーするには、
=IF(シート１!D1<>シート２!D1,シート１!A1,"")
をシート３のＡ１にコピーして
表の存在する範囲にコピーする。

お礼

ありがとうございます。
参考になりました！

回答No.1

sero

商品コードが重複しておらず、1度きりの作業なら変更の有無を判定する列を作成して
判定列をキーにオートフィルターで変更のあった行だけを表示させてシート3にコピー＆ペーストってのはどうです？

判定はVLOOKUPで比較
商品コードがB列で、E列を判定行とするならSheet2のE2セルに
=IF(VLOOKUP(B2,Sheet1!$B$2:$D$65535,3,0)=Sheet2!D2,"","変更あり")
とするとか。

お礼

ありがとうございます。
参考になりました！