エクセル2003マクロ：１日ごとに書き換えるシートの合計を１ヶ月集計の

質問

エクセル2003マクロ：１日ごとに書き換えるシートの合計を１ヶ月集計のシートにコピー、貼付けのようなことをすることを教えてください。

１日ごとに書き換えるシートと、１ヶ月集計するシートがあります。

１日ごとにデータをまとめて、そのデータを印刷し、そのデータの合計を１ヶ月単位で集計しているのですが、それをマクロにする方法が分かりません。

１日ごとに書き換えるシートはテンプレートになっていて、日付を書き換えて同じシートを使います。

そこで例えば、シート１（１日ごとに書き換えるシート）のA1:E1のデータを、シート２（１ヶ月単位で集計するシート）の１日なら１日の場所（例えばシート２のA1:E1）、２日なら２日の場所（例えばシート２のA2:E2）にコピー、貼付けのようなことはできるのでしょうか。

まとめてやるのではなく、１日ごとに日付の場所に。というようにしたいです。

分かりづらいかもしれませんが、よろしくお願いします。

回答No.1

hige_082 · ベストアンサー

これでできると思いますけど
Sub test()
Worksheets("シート１").Range("a1:e1").Copy Worksheets("シート２").Cells(Day(Worksheets("シート１").Range(日付セル).Value), "a")
End Sub

但し、シート１の日付の入力セルが分らないので
Range(日付セル)としています
これをRange("f1")の様に日付の入力セルのアドレスに書き換えてください

お礼

素早いご回答ありがとうございます。
コピーまでは出来たのですが、タイトルとの兼ね合いにより３行目に１日が来ているため、
１日の場合は３行目に、２日の場合は４行目にペーストしたいのですが、どのように書き換えれば良いでしょうか。
申し訳ありませんが、宜しければ回答お願いいたします。

補足

補足になりますが、
日付セルの部分に、1を入力してマクロを実行した場合、コピー先シートの
３１行目にペーストされました。
お礼にも書きましたが、タイトルとの兼ね合いもあり、１日は３行目にあります。
どのようにすれば良いでしょうか。
よろしくお願いいたします。