日毎に変わる行数を別シートに抽出するには

Question

Excelブックに、
日毎の予定が入ったシートと
転記用シートがあります。

日毎の予定シート

1 3/2 am ○○行事
1 3/2 pm ○○
2 3/5 am ○○行事
3 3/6 pm ○○

このデータから

転記用シートに、

1と入力すれば

am  ○○行事 
pm      ○○

2と入力すれば

am ○○行事

と、いう様に表示させたいです。
時間 がa1 内容がb2セルとし、

vlookを使えば1行目の内容は表示できるのですが、複数行表示させる場合の

マクロ又はVBAのコードをご教示ください。

Answer 1

日付	時間	イベント
3/2	am	○○行事
3/2	pm	○○
3/5	am	○○行事
3/6	pm	○○

日付	
3/2	

時間	イベント

それぞれ、Ａ１セルから表があるとして、
Ｓｈｅｅｔ２のモジュールに以下を記入

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$A$2" Then Exit Sub

    Sheets("Sheet1").Range("A1").CurrentRegion.AdvancedFilter _
            Action:=xlFilterCopy, _
            CriteriaRange:=Sheets("Sheet2").Range("A1:A2"), _
            CopyToRange:=Sheets("Sheet2").Range("A4:B4")
End Sub

注）検索する日付は表示形式を同じにしておいてください。
見た目で検索されるので。
注２）1列目の番号は無意味ですよね？
そっちを検索キーにするなら、ご自分でメンテナンスお願いします。

＜＜重要＞＞
コードの作成依頼は（今の質問の仕方は、そのつもりはないだろうけど、同意と取れます）、
マナー違反です。
サイトの利用規定を再度ご確認ください。

Answer 2

同一内容が2行以上ある場合はカラムを追加してインデックスを含む検索対象文字列を作っておきます。その上でインデックスを含む検索を行えば2個目、3個目を検索できます。