エクセルで引継ぎ簿を作成したい！

シート上にボタンを作ってボタンを押すと現在のシートの右側に
シートのコピーを追加するマクロを作成したいのですが、
シート名を図を参考に、

0501(早)A班 0501(遅)B班 0502(早)A班 0502(遅)B班 0503(早)A班 0503(遅)B班 0504(早)A班 0504(遅)C班・・・

という具合にしたいのですが難しくて断念しました。
皆さんの知恵をお借りしたいのですが、よろしくお願いします。

No.1 ベストアンサー 回答者： ママチャリ 回答日時： 2016/05/23 22:02

15日で1サイクルなので、最右端の右隣りのセルに、その15個前のセルをコピペすれば良いはずです。

こんな感じです。1回のボタンクリックで、7日分を追加しています。

Sub sample()
Dim LastCol As Long
Dim I As Long
LastCol = Cells(1, Columns.Count).End(xlToLeft).Column
For I = LastCol + 1 To LastCol + 7
Cells(1, I - 1).Copy Destination:=Cells(1, I)
Cells(1, I) = Cells(1, I) + 1
Cells(2, I - 15).Copy Destination:=Cells(2, I)
Cells(3, I - 15).Copy Destination:=Cells(3, I)
Cells(4, I - 15).Copy Destination:=Cells(4, I)
Next I
End Sub

この回答へのお礼

お返事遅くなってすいません。
出来ないと思ってたので出来てうれしいです。
ありがとうございました。

お礼日時：2016/05/24 18:17