シート1とシート2に共通するデータを抽出する

質問

エクセルブック　シート1　と　シート2　を比較し　A列　B列　D列　が同じ内容のデータを　シート3　へ抽出する方法を教えて下さい。

回答No.3

mitarashi

近頃はまっているdictionary使用のコードを汎用化してみました。ご参考まで。興味をお持ちになったら、VBA dictionaryでWEB検索してみて下さい。
Sub test()
Application.ScreenUpdating = False
Call compareColumns(Sheets(1).Range("A1").CurrentRegion, Sheets(2).Range("A1").CurrentRegion, Sheets(3).Range("a1"), Array(1, 2, 4))
Application.ScreenUpdating = True
End Sub

'比較範囲1, 比較範囲2, 出力先セル、比較する列番号の配列（個数任意）
'列番号は、比較対象範囲内の相対列番号とする
Private Sub compareColumns(rng1 As Range, rng2 As Range, destRange As Range, checkColumns As Variant)
Dim targetRow As Range, outputRange As Range
Dim keyString As String
Dim i As Long
Dim myDic As Object
Const delimiterChar As String = "☆"

Set outputRange = destRange
Set myDic = CreateObject("Scripting.Dictionary")
For Each targetRow In rng1.Rows
keyString = ""
For i = 0 To UBound(checkColumns)
If keyString = "" Then
keyString = targetRow.Cells(checkColumns(i)).Text
Else
keyString = keyString & delimiterChar & targetRow.Cells(checkColumns(i)).Text
End If
Next i
If Not myDic.exists(keyString) Then
myDic.Add keyString, targetRow
Else
MsgBox ("キーが重複しています")
Exit Sub
End If
Next
For Each targetRow In rng2.Rows
keyString = ""
For i = 0 To UBound(checkColumns)
If keyString = "" Then
keyString = targetRow.Cells(checkColumns(i)).Text
Else
keyString = keyString & delimiterChar & targetRow.Cells(checkColumns(i)).Text
End If
Next i
If myDic.exists(keyString) Then
myDic(keyString).Copy
outputRange.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Set outputRange = outputRange.Offset(1, 0)
End If
Next
Application.CutCopyMode = False
End Sub
’☆の所は、およそ出て来そうもない文字にして下さい。
'組み合わせの結果が重複する場合は、エラーで終了する仕様です。また、C列に何が入っているか分かりませんが、Sheet(1)の方の値を抽出します。

回答No.2

hallo-2007

シート３のA列に　作業列
=IF(Sheet1!A1&Sheet1!B1&Sheet1!C1=Sheet2!A1&Sheet2!B1&Sheet2!C1,ROW(),"")
下フィル
B1セルに
=INDEX(Sheet1!A$1:A$100,SMALL($A:$A,ROW(A1)))
右へ２つフィル
下フィルではいかがでしょうか。
エラー処理は含まれていません

回答No.1

imogasi

こういう問題は質問者は関数でやるよりほかないのだろうが、抜き出し問題は関数では苦手なものです。
ＶＢＡででもやらないとすんなりは出来ない。
難しさは３つあって
（１）抜き出し（抽出）問題は関数では技巧的になる
（２）本質問では比較対象がＡ，Ｂ，Ｄ列と３列に分かれていることである。
（３）たいしたこと無いが、比較が別シート間
それとＡ列内に同じ内容は重複して出ないのかが大切で、質問に書いてない。
本当はそういう程度の人には本件無理な課題で、また本質問は課題丸投げの質問だ。
ーーー
参考事項は
＆を使って３列を結合した列（本当は別の考慮か要る場合あるが。本来別なのに結合すると区別できずに、同じに見える文字列が無いか）をシート１、シート２に新たにつくり（ＸとＹとする）、シート１からその行・セル（セルＸ）の内容がシート２のＹ全行に渉って無いかCOUNTIF関数で聞いて、その件数が１より大なら同じ内容のものアリとして処理する。
同じものが見つかったとして、それを関数の組み合わせで抜き出すのはＧｏｏｇｌｅで「imogasi方式」で照会すれば、条件抜き出しの質問例が出て、作業列を使った方法だが参考になるでしょう。また他の解法も他の回答者が出している。