| 
    
     |  | >4月2日の時4月22日や4月25日なども含んでしまいました。 検索するときの条件を、
 対象:値
 完全に同一なセルだけを検索する にチェック
 として、もう一度試してみてください。
 また、マクロの記録で採取したコードでは、どのシートを対象に検索するかの情報は含まれていません。
 このままでは、誤動作する可能性がありますので、対象を明示する書き方にします。
 >Cells.Find 〜
 ↓
 Worksheets("データがあるシート名").Cells.Find 〜
 
 >新規シートに書き出すように考えています。
 新規シートを追加する部分は、マクロの記録をしてみてください。
 新規シートを追加した後、この新規シートは ActiveSheet としてアクセスできますから、
 まず、名前を付けてしまいましょう。(仮に"test"とする)
 例えば、この新規シートのA1セルに"あ"と記入したければ、↓のような記述になります。
 Worksheets("test").Cells(1,1).Value = "あ"
 
 今、検索対象が日付ですから、名前と金額を知るには検索結果のセルの隣、或いは更に隣などの情報が必要です。
 ヘルプで Offset() を調べてみてください。
 
 
 |  |