EXCELのVBAで連続コピーの方法をお願いします

１月　　　　１日　　２日　　　３日　　４日
　
加藤　　　午前　　午後　　午前　　午後　　（A２セル　B２　C２　D２　E２セルに書込み）


鈴木　　　午後　　午前　　午後　　午前　　（A３セル　B３　C３　D３　E３セルに書込み）


SHEET１にエクセルの表を作成した後にSHEET２のA1からコピーをしSHEET１のデータは消し、次に
SHEET１に２月の表を作成した後にSHEET２の１月の最後の次にコピー（すなわちA４）
以後３・４・５月と連続してコピーしたいのです。ひとことで言いますと１月から作成したリストを連続で残して置きたいのです。
宜しくお願いいたします。

エクセルは２００７　と２００３両方でお願いします

表現が悪くてすいません

No.1 回答者： tom04 回答日時： 2012/08/11 22:04

こんばんは！

外していたらごめんなさい。

Sheet1の1行目（タイトル行）はSheet2にコピー＆ペーストしなくて良いわけですよね？

一例です。
画面左下のSheet1のSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。

Sub test() 'この行から
Dim i As Long, ws As Worksheet
Set ws = Worksheets("Sheet2")
i = Cells(Rows.Count, 1).End(xlUp).Row
If i > 1 Then
Range(Cells(2, 1), Cells(i, 5)).Copy Destination:= _
ws.Cells(Rows.Count, 1).End(xlUp).Offset(1)
Cells(1, 1).ClearContents
Range(Cells(2, 1), Cells(i, 5)).ClearContents
End If
If WorksheetFunction.CountA(ws.Rows(1)) = 0 Then
ws.Rows(1).Delete
End If
End Sub 'この行まで

こんな感じではどうでしょうか？

※　Sheet1にコマンドボタンを配置し、コマンドボタンをクリックすると
マクロが実行される方法が良いかもしれませんね。m（_ _）m

この回答へのお礼

有難うございます
おかげさまで助かりました

お礼日時：2012/08/12 11:09