Excelで一月分のシート名変更

質問

エクセルで日報を製作する際に、
一つのブックに一月分のシートを入れて入力をしているのですが、
シート名を「1日」「2日」「3日」…として作る際、
例えばB2セルに日付の数字のみを入力するとして、
「1日」目のシートのみを作った状態から、
一気に「31日」までのシートをコピーする方法は無いでしょうか？
VBAを使用すれば可能だとは思うのですが、
その後VBAを解除しても一度入れたシート名が動かないようになっていると有難いです。

回答No.2

merlionXX · ベストアンサー

VBAの一例です。
標準モジュールにコピペして実行してみてください。

Sub test01()
Dim i As Integer, ns As Worksheet
For i = 1 To 31
Set ns = Sheets.Add(After:=Sheets(Worksheets.Count))
ns.Range("B2") = i
ns.Name = i & "日"
Next i
Set ns = Nothing
End Sub

お礼

ありがとう御座います。
頂いた例と合わせて、色々な方の知恵をお借りして
無事にお盆に入る前に仕事が片付き、非常に助かりました。

回答No.1

cistronezk

「シート名　連番」で検索すればサンプルがたくさん見つかります。
VBAがあまり詳しくないのでしたら、手作業でやった方が速いとは思いますが。