Excelでこのようなときはどんな関数にすればよいでしょうか

質問

同じブック内で以下のような２シートがあるときに、

（シートＡ）
　　　Ａ　　　Ｂ　　　　Ｃ　　　
１　　あい　　123　　りんご
２　　うえ　　456　　みかん　　
３　　おか　　789　　イチゴ

（シートＢ）
　　　Ａ　　　Ｂ　　　　Ｃ　　　
１　　あい　　123　　めろん
２　　えお　　456　　みかん　　
３　　おか　　789　　イチゴ

横に並んだ３項目が同じものにだけ、（シートＢ）のセルに色を付けたいのです。
（上記の例だと、３行目が３項目とも一致しているということです）
色は横３つのセルにつけられなければ、Ａ列のセルだけでも構いません。
（上記の場合、色をつけたいのはシートＢ「おか」のセル）

列を増やすなど、処理用のデータが必要でも非表示にすればいいので
その点は構いません。
関数や条件付書式などで、なんとかなりますでしょうか？

回答No.6

imogasi

既に出ているご回答が相当理解するのに手間が掛かりそう
に思います。それで質問者の希望に無いのですが、VBAを
参考までに載せます。ロジックも初歩的な、総なめ法を使っているので、やっていることは単純で判りやすいと思います。そこがVBAの良いところだと思います。
ぜひ見てください。
Sub test02()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Worksheets("sheet1")
Set sh2 = Worksheets("sheet2")
'Sheet1とShｅet2の最下行を知る
d1 = sh1.Range("A1").CurrentRegion.Rows.Count
d2 = sh2.Range("A1").CurrentRegion.Rows.Count
'------Ｓｈｅｅｔ１の各々全行について、Sheet2の
'全行に渡って同じ物があるかどうか総なめで比較する
For i = 1 To d1
s1 = sh1.Cells(i, "A") & sh1.Cells(i, "B") & sh1.Cells(i, "C")
For j = 1 To d2
s2 = sh2.Cells(j, "A") & sh2.Cells(j, "B") & sh2.Cells(j, "C")
If s1 = s2 Then
'見つかればSheet1のA列に黄色を付ける
sh1.Cells(i, "A").Interior.ColorIndex = 6
End If
Next j
Next i
End Sub

お礼

ありがとうございます！
また違った方法をお教えくださって勉強になります。
関数の方が使い慣れているため、理解は簡単でした。
でもVBAもチャレンジしてみようとは思っておりますので
その時にはぜひこの例で勉強してみようと思います！