条件に一致したデータの検索・抽出について

質問

エクセルで２つのデータから条件に一致したデータを検索・抽出がしたいのですが、うまく抽出することができないため、質問させていただきます

データＡ
｜入荷日｜商品番号｜商品名｜数量｜金額｜
｜１．１｜１１１１｜〇〇〇｜１０｜１０｜
｜１．２｜２２２２｜◎◎◎｜１５｜１５｜
｜１．３｜３３３３｜△△△｜２０｜２０｜
｜１．４｜４４４４｜◆◆◆｜１０｜１０｜

データＢ
｜販売日｜商品番号｜商品名｜販売数｜
｜３．１｜１１１１｜〇〇〇｜　　　｜
｜３．２｜　　　　｜ＡＡＡ｜１００｜
｜３．３｜　　　　｜ＢＢＢ｜１２０｜
｜３．１｜２２２２｜◎◎◎｜　　　｜
｜３．３｜　　　　｜ＣＣＣ｜１００｜
｜３．１｜３３３３｜△△△｜　　　｜
｜３．１｜４４４４｜◆◆◆｜　　　｜

データＢから商品番号の一致したデータの一部を抽出してデータＡに追加したいです
（一部が難しいようなら１行そのまま抽出でも大丈夫です）

理想は

｜入荷日｜商品番号｜商品名｜数量｜金額｜販売数｜
｜１．１｜１１１１｜〇〇〇｜１０｜１０｜　　　｜
｜　　　｜　　　　｜ＡＡＡ｜　　｜　　｜１００｜
｜　　　｜　　　　｜ＢＢＢ｜　　｜　　｜１２０｜
｜１．２｜２２２２｜◎◎◎｜１５｜１５｜　　　｜
｜　　　｜　　　　｜ＣＣＣ｜　　｜　　｜１００｜
｜１．３｜３３３３｜△△△｜２０｜２０｜　　　｜
｜１．４｜４４４４｜◆◆◆｜１０｜１０｜　　　｜

もしくは、関数を利用して以下の形にできれば、と思います

｜入荷日｜商品番号｜商品名｜数量｜金額｜商品名｜販売数｜商品名｜販売数｜
｜１．１｜１１１１｜〇〇〇｜１０｜１０｜ＡＡＡ｜１００｜ＢＢＢ｜１２０｜
｜１．２｜２２２２｜◎◎◎｜１５｜１５｜ＣＣＣ｜１００｜　　　｜　　　｜
｜１．３｜３３３３｜△△△｜２０｜２０｜　　　｜　　　｜　　　｜　　　｜
｜１．４｜４４４４｜◆◆◆｜１０｜１０｜　　　｜　　　｜　　　｜　　　｜

データＡをベースに、データＢから重複データのうちすでにデータＡにあるものを省き（１件目は重複データなので２件目以降）抽出する

１．データＢ商品番号重複しています。重複データの１件目はデータＡと共通で、２件目以降を抽出したいです
２．データＢ商品番号の重複はそれぞれ違うため、１件も重複してないものもあれば３件ほど重複しているものもあります
３．データＡは入荷日の範囲を指定したデータですが、データＢは入荷日項目がないため抽出する必要のない内容・件数のデータもはいっています。その為、データＡから抽出するのではなく、データＡをベースにデータＢから抽出がしたいです。

よろしくお願いします。

回答No.1

HohoPapa · ベストアンサー

'こんなカンジでいかがでしょうか

Option Explicit

　Dim shDataA As Worksheet
　Dim shDataB As Worksheet
　Dim shDataC As Worksheet
　Dim PutRow As Long

'//------------main
Sub main()

　Dim RowCnt As Long

　Set shDataA = ThisWorkbook.Sheets("DataA")
　Set shDataB = ThisWorkbook.Sheets("DataB")
　Set shDataC = ThisWorkbook.Sheets("DataC")
　shDataC.Cells.ClearContents

　shDataC.Cells(1, 1).Value = "入荷日"
　shDataC.Cells(1, 2).Value = "商品番号"
　shDataC.Cells(1, 3).Value = "商品名"
　shDataC.Cells(1, 4).Value = "巣量"
　shDataC.Cells(1, 5).Value = "金額"
　shDataC.Cells(1, 6).Value = "販売数"

　RowCnt = 2
　PutRow = 1
　Do
　　If shDataA.Cells(RowCnt, 1).Value = "" Then Exit Do
　　PutRow = PutRow + 1
　　shDataA.Rows(RowCnt).Copy shDataC.Rows(PutRow)
　　Tenki shDataA.Cells(RowCnt, 2).Value
　　RowCnt = RowCnt + 1
　Loop

End Sub

'//------------Sub
Sub Tenki(SNum As Long)

　Dim RowCnt As Long
　Dim HitFlg As Boolean
　RowCnt = 2
　HitFlg = False

　Do
　　If shDataB.Cells(RowCnt, 1).Value = "" Then Exit Do
　　If shDataB.Cells(RowCnt, 2).Value = SNum Then
　　　HitFlg = True
　　ElseIf ((shDataB.Cells(RowCnt, 2).Value <> "") And _
　　　(shDataB.Cells(RowCnt, 2).Value <> SNum)) Then
　　　HitFlg = False
　　End If

　　If ((HitFlg = True) And _
　　　(shDataB.Cells(RowCnt, 2).Value = "")) Then
　　　PutRow = PutRow + 1
　　　shDataC.Cells(PutRow, 3).Value = shDataB.Cells(RowCnt, 3).Value
　　　shDataC.Cells(PutRow, 6).Value = shDataB.Cells(RowCnt, 4).Value
　　End If

　　RowCnt = RowCnt + 1
　Loop

End Sub

お礼

毎月集計するものなので、VBAで回答いただけてとても助かりました。
こちらに手を加えて使用させていただきます。
ありがとうございました。

回答No.2

imogasi

エクセルと言えば
（１）関数（２）VBA（３）操作（４）特別な操作（例　ピボットテーブル、」統合など）
などで解決する方法があるが、（１）の信者や、」、れしかできない質問者が多いようだ。質問者は？
ーー
関数では条件を付けて抜き出す、という課題も式が長く、そのアイデアも上級者
でも難しいかな、と思う。
ーー
本件ぐらいになるとVBAでしかできないのでは、と思う。それもADOのSQLなどを使う人もいるかもしれない。
　VBAでも難しいと思う。
ーー
しかし質問文では、どうしたいというのが、よくわからない。
＞条件に一致した＞、というのを文章で言ってみてほしい。
ーー
両シートを１つのシートに持ってくると
データ種別 入荷日 商品番号 商品名 数量 金額
A 1月1日 1111 〇〇〇 10 10
A 1月2日 2222 ◎◎◎ 15 15
A 1月3日 3333 △△△ 20 20
A 1月4日 4444 ◆◆◆ 10 10
B 3月1日 1111 〇〇〇 　　　
B 3月2日 　　　　 ＡＡＡ 100
B 3月3日 　　　　 ＢＢＢ 120
B 3月1日 2222 ◎◎◎ 　　　
B 3月3日 　　　　 ＣＣＣ 100
B 3月1日 3333 △△△ 　　　
B 3月1日 4444 ◆◆◆ 　　　
となる。
（これらはVBAで、やることになろうが、取り合えず手作業で行った）
多分、同一日内やシート全体のスパンで、「重複したものは削除したい」のだろうが、同一日らしい日付例では見つからない。
この質問で、例を挙げているのは、ご丁寧だと思うが、説明文章も添えないと、よくわからない。特に結果データはどうなってほしいのか）
よく言う、見れば分かるというのは、疑わしい。
ーーー
○○○とAAAの類はどう違うのか。
商品番号が空白行は、上行と同じということか？セリ結合をしてあるのか。
VBAではセルの結合があると、それをのぞくために、１手間かかる。
何かこれを読んで反応してみて。