エクセルでのシートコピーの早業を教えて下さい。

質問

（ワーク）シート1に毎日のデータを記入する表があります。
例えば9/1に記入（入力）して下にあるシート表示欄に9/2・9/3・9/4・・・・と

どんどん増やして行きたいと思います。が、Ctrl+　9/1ドラック右では　9/1（2）・9/1（3）・・・と
なります。このコピーしたシートの日付をフィルみたいに連続した日付には出来ないでしょうか？

今はシートを一枚一枚名前を（２日・３日・４日・・・）変更しています。すごく大変です。
どうかいい方法をお願いします。

回答No.3

KURUMITO

回答が遅くなってごめんなさい。
エクセルのバージョンが示されていませんので問題なのですがエクセル2010の場合でしたら「ファイル」タブから「オプション」をクリックします。
「リボンのユーザー設定」で表示される右の画面で「開発」の項目名のところにチェックをしてOKすればよいでしょう。
エクセル2007などでしたら「Office」ボタンをクリックして「Excelのオプション」をクリックします。
「基本設定」の項目の中に「開発タブをリボンに表示する」が有りますのでそこにチェックをしてOKすればよいでしょう。

お礼

いろいろありがとうございました。
さっそく実行しました。これからもよろしくです。

回答No.2

KURUMITO

回答No1です。
シート名では9/1のように/を使うことはできません。また、年によっては閏年などがありますので月の末日をはっきりさせるためには年を入力することが必要ですのでシート名を2012年9月1日のようにしています。

補足

早速の回答ありがとうございます。
素人の質問で申し訳ありませんが、「開発」タブってどこにありますか？

どこにあるのか？どうして探すのかの手順を教えて下さい。
どうかお願いします。

回答No.1

KURUMITO

マクロを使って対応することになるでしょう。
シート見出しで左側に位置するシートに例えば2012年9月1日と入力してください。9月1日からその月の末日までがシート見出しの右側にあるシートにシート名が連続して付けられます。シートが不足している場合にはシートの追加が自動的に行われシート名が日付で表示されます。
初めに「開発」タブの「マクロ」をクリックします。
名前を　ThisWorkbook.シート見出しの変更　と入力し、その上で「編集」をクリックします。
表示される画面では次のコードを入力します。

Sub シート見出しの変更()
Dim Mstart As String
Dim Mstop, Sday As Date
Dim Sname As String
Mstart = ActiveSheet.Name
On Error GoTo Step1
Mstop = DateSerial(Year(Mstart), Month(Mstart) + 1, 0)
m = Day(Mstop) - Day(Mstart)
For i = 1 To m
Sday = DateSerial(Year(Mstart), Month(Mstart), Day(Mstart) + i)
Sname = Year(Sday) & "年" & Month(Sday) & "月" & Day(Sday) & "日"
On Error GoTo Step2
A = ActiveSheet.Next.Name
ActiveSheet.Next.Name = Sname
ActiveSheet.Next.Activate
Next
Exit Sub
Step1:
MsgBox "シート見出しの名前を例えば2012年9月1日のようになっていることが必要です。訂正してから操作を行ってください。"
Exit Sub
Step2:
Worksheets.Add After:=ActiveSheet
ActiveSheet.Previous.Activate
Resume
End Sub

マクロを実行する場合にはシート名が2012年9月1日のシートを選択した上で、10月のシートを作りたいのでしたら2012年10月1日のシートを作成してそのシートを選択した上で「開発」タブの「マクロ」から「ThisWorkbook.シート見出しの変更」を選択して「実行」ボタンをクリックします。
なお、選択するシートの見出しは2012年9月10日であっても構いません。その後の日付のシートが作成されます。