エクセルで日付単位にデータを切り出したい

質問

項目名　金額　日付
家賃　　 52000　0401
交通費　3000　0401
食費　　 2000　0401
通信費　5000　0410
交通費　2000　0410
交通費　1500　0411
食費　　 1000 0411
....

項目名と金額の値は例です。
上記のように特定の日に何かを行った場合、1行毎に行った内容を書いてあるデータがあります。
これを同一日付毎に自動で切り抜くような処理をしたいのですが、可能でしょうか？

家賃　　 52000　0401
交通費　3000　0401
食費　　 2000　0401

この3つのデータを切り出した後

通信費　5000　0410
交通費　2000　0410

またこの2つのデータを切り出し

交通費　1500　0411
食費　　 1000 0411

更にこのデータを切り出す・・・のように、同一の日付で振り分けたいんです。

回答No.1

keithin · ベストアンサー

Ａ，Ｂ，Ｃ列にデータを記入する

ＡＬＴ＋Ｆ１１を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
　dim r as long
　dim w0 as worksheet
　set w0 = activesheet
　on error goto errhandle

　for r = 2 to range("C1").end(xldown).row
　　rows(r).copy worksheets(cells(r, "C").text).range("A65536").end(xlup).offset(1)
　next r
　exit sub

errhandle:
　worksheets.add after:=worksheets(worksheets.count)
　activesheet.name = w0.cells(r, "C").text
　w0.rows(1).copy range("A1")
　w0.select
　resume
end sub

ファイルメニューから終了してエクセルに戻る
データを記入したシートを開く
ＡＬＴ＋Ｆ８を押し、マクロを実行する。

＃補足
＞切り抜くような処理をしたい

一体何をしたいのか、「どうなって欲しい」のかさっぱり説明不足なので勝手に「こういう結果」にしました。

お礼

言葉足りずですみません。
やりたかったとおりの動きでした

ありがとうございます！

回答No.2

K Kazz（@JazzCorp）

データは順序よく入力する、または、
オートフィルタで日付をキーにしてソートする、
他に途はない、、、