エクセルで別シートとの項目比較

質問

エクセル2016、windows7の環境です。
sheet1に商品コード、商品名、納品日、納品数、単価、金額があり、sheet2にも同様の項目が
設定されています。
vbaでsheet2を一行ずつ読み商品コード、納品日、納品数、単価が同一の行が存在するかをチェックし、同一の行が存在しなければsheet1の最終行の次の行へ追加していきたいと考えています。
商品コード、納品日、納品数、単価が同一の行が存在するかのチェックでmatchを使おうかと
思ったのですが複数項目ある時にどのような構文にしたらよいかがわかりませんでした。
matchにはこだわっておりませんが、アドバイスいただければ幸いです。宜しくお願い致します。

回答No.3

imogasi · ベストアンサー

質問者は、「vba」といっているが、エクセル関数程度の経験で、ＶＢＡもプログラムも経験が少なく、一番大切な、処理ロジックというかアルゴリズムに関心がむいていないようだ。まだこの課題をやるには、早すぎるのでは。
私のお勧めは、両シート（のコピーを作り）を
商品コード＋納品日＋納品数＋単価でソートして（この＋に意味わかりますか？）
両シートのデータをＭａｔｃｈｉｎｇのアルゴリズムで処理する方法だ。（ＭＡＴＣＨ関数のこととは全く別）
（１）総なめ法
（２）Ｆｉｎｄメソッド法（処理が重い）
（３）フィルター法（処理が重い）
https://okwave.jp/qa/q6049199.html
（４）Ｍａｔｃｈｉｎｇ法
https://okwave.jp/qa/q731413.html
http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_160_21.html
やや具体的に書いた小生の回答ががあるはずだが、どこか探せなかった。
それに近いのは
http://soudan1.biglobe.ne.jp/qa346901.html?order=DESC&by=datetime
このロジックの説明が参考になると思う。

お礼

挙げていただいたサイトを参考にしてみます。ありがとうございました。

回答No.4

chie65536（@chie65535）

＞商品コード、納品日、納品数、単価が同一の行が存在するかのチェックでmatchを使おうかと
＞思ったのですが複数項目ある時にどのような構文にしたらよいかがわかりませんでした。

他の回答にあるように「複数項目を連結した値」を使うのですが、単純に連結すると罠にハマります。

例えば

商品コード:CD01
納品日：2017/3/11
納品数：1
単価：200

と言う行と

商品コード:CD01
納品日：2017/3/1
納品数：11
単価：200

と言う行で「項目を連結した値」を作ると、どちらの行も

CD012017/3/111200

と言う値になり、不一致なのに「一致」として判断されます。

では「カンマで区切れば」と思うでしょうが「数字や商品コードにカンマが入って居る場合」に「データ上のカンマ」と「区切りとして入れたカンマ」が混同され、やはり、誤動作します。

ですので、こういう「項目を連結した値で比較」する場合は「データや数値の中に、絶対に出てこない文字列」を「区切りのマーク」にして、項目を連結した値を作る必要があります。

たとえば「データの中身に『@』が絶対に出てこない」と決まっているなら「区切りのマークを@にする」などの方法を取ります。

先ほどの例であれば「連結した値」は

CD01@2017/3/1@11@200
CD01@2017/3/11@1@200

と言う値になるので「一致してない」と正しく判断されます。

こういう「連結した値を作って、まとめて一致するか判断する時」は「絶対に単純に連結してはダメ」です。

お礼

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

回答No.2

tsubu-yuki

多分（私見１００％）、最も簡単なのは
「各項目を文字列をして結合して比較する」方法だと思いますよ。

まぁ要するに両シートに
　　商品コード&商品名&納品日&納品数&単価&金額
という項目（作業列）を作ってやればＯＫです。
見た目に邪魔ですから、この列を作る作業もＶＢＡで行えばＯＫですね。

で、比較する作業列ができたら、ＣＯＵＮＴＩＦ関数で当たって、
返りが０だったらシート１に追加する。
コレをシート２の最終行まで繰り返すように書いてやれば出来上がりです。

最終的に必要であれば、作った作業列を消す文も書くと良いかもしれませんね。

セルのアドレスなど。表のレイアウトが全く分かりませんので、
アドバイスも不完全かもしれませんが、参考までに。

お礼

参考に致します。どうもありがとうございました。

回答No.1

3620313

私も似た様な場面に出くわしたことがあります。

sheet1、sheet2共に、
全データをconcatenateで結合し、単価列の右の列に作業エリアを設置。
あとは、match関数を使用して比較し、matchするものが無ければ、
sheet1の最終行の次の行へ追加
という処理でよいと思います。

お礼

試してみます。どうもありがとうございました。