Excelのデータから一部のデータを別シートに抽出するマクロを組みたい

質問

毎日更新されるExcelのデータから、指定した日のデータのみを別シートで抽出するマクロを組みたいのです。
【毎日更新して追加されるデータ】
列　　　A　　　　　B　　　　C　　　　D
　　入会日　　　会員番号　会員名　会員種別
　　2009/7/21　　12345　　花子　　　　5
　　2009/7/21　　12345　　次郎　　　　7　　
　　2009/7/22　　12347　　太郎　　　　4

上記のように毎日追加される全体のデータから、指定した入会日のデータのみを別シートのテンプレートにもってきたいのです。
【テンプレート】は添付データのようなフォーマットです。
入会日を変えることにより、該当するデータをその都度テンプレートに反映させるようにするマクロはどのようにしたらよいでしょうか？
ちなみに、全体のデータとテンプレートのシートは同じファイルです。
どうぞよろしくお願いいたします。

この投稿のマルチメディアは削除されているためご覧いただけません。

回答No.3

kmetu

Sub test()

Dim i As Integer, LastRow As Integer
Dim c As Object
Dim firstAddress As String

i = 0
LastRow = Range("B65536").End(xlUp).Row + 1

With Worksheets("Sheet1").Range("A2:" & Range("A65536").End(xlUp).Address)
Set c = .Find(ActiveSheet.Range("B2").Value, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
ActiveSheet.Range("B" & LastRow).Offset(i, 0) = c.Offset(0, 1).Value
ActiveSheet.Range("C" & LastRow).Offset(i, 0) = c.Offset(0, 2).Value
ActiveSheet.Range("D" & LastRow).Offset(i, 0) = c.Offset(0, 3).Value
i = i + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

End Sub

でいかがでしょう。
テンプレートのシートをアクティブにした状態で実行してください。

補足

kmetuさん、

早速ありがとうございます。
いくつか質問がありますので回答をお願いします。

Sub test()

Dim i As Integer, LastRow As Integer
Dim c As Object

→ここのcとは何を意味しているのでしょうか？

Dim firstAddress As String

i = 0

→ここのiとは何を意味しているのでしょうか？

LastRow = Range("B65536").End(xlUp).Row + 1

With Worksheets("Sheet1").Range("A2:" & Range("A65536").End(xlUp).Address)

→”Sheet1”とは、参照先のシート名を入れればよいのでしょうか？
Set c = .Find(ActiveSheet.Range("B2").Value, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
ActiveSheet.Range("B" & LastRow).Offset(i, 0) = c.Offset(0, 1).Value
ActiveSheet.Range("C" & LastRow).Offset(i, 0) = c.Offset(0, 2).Value
ActiveSheet.Range("D" & LastRow).Offset(i, 0) = c.Offset(0, 3).Value
i = i + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

End Sub

でいかがでしょう。
テンプレートのシートをアクティブにした状態で実行してください。

→アクティブにした状態とは、テンプレートのシートを右クリックしてコードの表示をして上記のマクロを入れればよいということでしょうか？

初心者なので、基本的な質問をして申し訳ないのですがお答えいただけないでしょうか？
どうぞよろしくお願いいたします。