Excel 2つのDatabaseから一致した結果

質問

結構な量のデータベースが２つあります。

例えば sheet２（データベース２）のJ２，P２，S２の３つ条件にあうものを
sheet１（データベース１）の中から検索して
一致した場合は sheet２のY２に○か× を表示
○の場合は一致した行の指定の列のセルをの sheet２のZ２ に表示させたいのですが
どちらのデータベースにも完全に一致する列の紐づけデータがないのでVLOOKUPは使えず
重複データも沢山あるため複数検索のDGETを使っても検索条件を毎回 入力していかなければならないので大変な手間になってしまいます。

http://i.imgur.com/SFsX0Zq.jpg

二行目・三行目とオートフィルで全ての行に対応できる方法はないでしょうか？
表示されていない列は非表示にしてあります。

関数にはこだわりません。複雑になってしまってもいいです。
マクロでもいいです。
皆様お知恵をお貸しください。宜しくお願い致します。

回答No.3

tom04 · ベストアンサー

こんばんは！
関数での方法は回答済みなので、VBAでの一例です。

標準モジュールに↓のコードをコピー＆ペーストしてマクロを実行してみてください。

Sub Sample1() 'この行から
Dim i As Long, lastRow1 As Long, lastRow2 As Long
Dim c As Range, wS As Worksheet
Set wS = Worksheets("Sheet2")
Application.ScreenUpdating = False
lastRow2 = wS.Cells(Rows.Count, "J").End(xlUp).Row
If lastRow2 > 1 Then
Range(wS.Cells(2, "Y"), wS.Cells(lastRow2, "Z")).ClearContents
End If
wS.Range("A:A").Insert
With Range(wS.Cells(2, "A"), wS.Cells(lastRow2, "A"))
.Formula = "=K2&""_""&Q2&""_""&T2"
.Value = .Value
End With
With Worksheets("Sheet1")
lastRow1 = .Cells(Rows.Count, "B").End(xlUp).Row
.Range("A:A").Insert
With Range(.Cells(2, "A"), .Cells(lastRow1, "A"))
.Formula = "=C2&""_""&L2&""_""&T2"
.Value = .Value
End With
For i = 2 To lastRow2
Set c = .Range("A:A").Find(what:=wS.Cells(i, "A"), LookIn:=xlValues, lookat:=xlWhole)
If c Is Nothing Then
wS.Cells(i, "Z") = "×"
Else
wS.Cells(i, "Z") = "○"
wS.Cells(i, "AA") = .Cells(c.Row, "Y")
End If
Next i
.Range("A:A").Delete
wS.Range("A:A").Delete
End With
Application.ScreenUpdating = True
End Sub 'この行まで

※　関数でないので、データ変更があるたびにマクロを実行する必要があります。
※　作業列を使用し関数でやる方法をコードにしただけです。m(_ _)m

お礼

ありがとうございます！
本当に助かりました。

回答No.2

MackyNo1

以下の数式を入力して下方向にオートフィルしてください。

Y2セル
IF(COUNTIFS(Sheet1!B:B,J2,Sheet1!K:K,P2,Sheet1!S:S,S2),"○","×")

Z2セル
=IF(Y2="○",INDEX(Sheet1!$X$2:$X$1000,MATCH(J2&P2&S2,INDEX(Sheet1!$B$2:$B$1000&Sheet1!$K$2:$K$100&Sheet1!$S$2:$S$1000,),0)),"")

お礼

ありがとうございます！
本当に助かりました。

回答No.1

keithin

Ｙ２に
=IF(COUNTIFS(Sheet1!B:B,J2,Sheet1!K:K,P2,Sheet1!S:S,S2),"○","×")
以下コピー

とかで。

お礼

ありがとうございます！
助かりました。