こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

項目名 金額 日付
家賃   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

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

投稿日時 - 2013-04-29 00:56:02

QNo.8064151

困ってます

質問者が選んだベストアンサー

A,B,C列にデータを記入する

ALT+F11を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

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

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





#補足
>切り抜くような処理をしたい

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

投稿日時 - 2013-04-29 01:59:27

お礼

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

ありがとうございます!

投稿日時 - 2013-04-29 20:09:10

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

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

投稿日時 - 2013-04-29 09:01:53

あなたにオススメの質問