助けてください。VLOOKUPやOFFSETでは解決できません（＞＜）

質問

助けてください。。
仕事でレシピを作成しているのですが、
メニュー名や材料、手順をデータとして入力をしていて、その中から必要に応じて3つぐらいのメニューを選んで別シートにレシピを作成をしています。
今までは、コピー、貼り付けをして対応してましたが、仕事量が増え、負担になってきているので、なんとか数式で簡単にデータを引っぱってこれないかなあと思っています。

データの入力は↓のようにしてあります。

　　　A　　　　　　　　　B　　　　　　　C

1　メニュー名　　　　　材料　　　　　　手順
2　ぶりしゃぶ　　　　　ぶり（薄切り）　(1)ぶりは
3　ぶりしゃぶ　　　　　ほうれん草　　　(2)次に
4　ぶりしゃぶ　　　　　酒　　　　　　　(3)ほうれ
5　ぶりしゃぶ　　　　　ポン酢　　　　　(4)最後に
6　きのこのホットパイ　きのこ　　　　　(1)パイシ
7　きのこのホットパイ　パイシート　　　(2)きのこ
8　きのこのホットパイ　ホワイトソース　(3)鍋に、　
9　きのこのホットパイ　白ワイン　　　　(4)オーブン
10　きのこのホットパイ　玉ねぎ　　　　　(5)皿に　
.
.
.
.

別シートには↓のように、A1セルにメニュー名を入力するとA4、B4以下に自動で入力されるようにしたいです。
材料は、4つとは限らず、2個の事も10個のこともあります。手順も同様です。また、材料の個数＝手順の行程数とは限りません。材料は2個なのに、手順は4行程ということもあります。

　　A　　　　　　　　　B
1　ぶりしゃぶ
2
3
4　ぶり（薄切り）　(1)ぶりは
3　ほうれん草　　　(2)次に
4　酒　　　　　　　(3)ほうれ
5　ポン酢　　　　　(4)最後に

VLOOKUPやOFFSETを使用して作ってみたのですが、うまくいきませんでした。HITする文字列が複数ある場合は、どのようにすればいいのでしょうか。。
是非ご教授頂ければと思っております。
よろしくお願い致します☆

回答No.1

papayuka

データの持ち方を工夫した方が良いでしょうね。

　ぶりしゃぶ材料　　ぶり（薄切り）　　ほうれん草　　酒
　ぶりしゃぶ手順　　(1)ぶりは　　　(2)次に　　(3)ほうれ

のようにして、A1に名称を入れた時に

　A4 では =VLOOKUP($A$1&"材料",データ範囲,2,0)
　A5 では =VLOOKUP($A$1&"材料",データ範囲,3,0)
　B4 では =VLOOKUP($A$1&"手順",データ範囲,2,0)
　B5 では =VLOOKUP($A$1&"手順",データ範囲,3,0)

あとは、IFやISERROR 又は ISNA等併用して、データが無い場合は空白表示にさせます。

データ構造がそのままなら、VBAでやっちゃうとか。
試すなら新規シートで。

１）レシピのシート名 を「レシピ」、データのシート名 を「データ」とします。
２）データシートはA1から始まるタイトルありの表で、A列のデータでソートされているとします。
３）レシピシートのシート名タブを右クリックし、コードの表示で出てきたVBE画面に下記のコードを貼り付けます。
４）レシピシートのA1を入力すると切り替わります。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, cnt As Long
　If Target.Cells(1, 1).Address <> "$A$1" Then Exit Sub
　Worksheets("レシピ").Range("A4").CurrentRegion.ClearContents
　cnt = 4
　　With Worksheets("データ")
　　　For Each r In .Range(.Range("A1"), .Range("A65536").End(xlUp))
　　　　If r.Text = Target.Cells(1, 1).Text Then
　　　　　 Worksheets("レシピ").Range("A" & cnt).Value = r.Offset(0, 1).Text
　　　　　 Worksheets("レシピ").Range("B" & cnt).Value = r.Offset(0, 2).Text
　　　　　 cnt = cnt + 1
　　　　End If
　　　Next r
　　End With
End Sub