ExcelでSheetに対して1から連番で振るマクロを作ろう[Excel]

2019年7月9日

妹「ねえ、お兄ちゃん。エクセルシートの名前って一つ一つ変えると面倒だよね。これってどうやったら楽に変えられるのかな?」
兄「そういう時はVBAを使うのが手っ取り早いかな。↓のコードで変えられるよ」

Sub ChangeSheetNo()
    'このブックにあるシート件数分すべてループする
    For i = 1 To Sheets.Count
        'それぞれのシートの名前を変える
        Sheets(i).Name = i
    Next i
End Sub

妹「ありがとうお兄ちゃん!」
兄「何に使うんだ?これ……」
妹「1日毎に家計簿をつけたいなって思って。1月ブックの1日~31日みたいな」
兄「(1シートに纏める方がデータが整理できていいのに……)」