Excel VBA シート名をプログラムで自動的に変更する方法

以下のようなシーンで利用されます。

・データをインポートするたびにシート名に日付を付けて管理

・複数のレポートを生成する際に、それぞれのシート名をプロジェクト名やカテゴリに変更

・多くのシートがある場合、目的に応じてシート名を整理して変更

Option Explicit

Sub RenameSheet()
    ' "Sheet1" のシート名を "データシート" に変更
    Worksheets("Sheet1").Name = "データシート"
End Sub

現在のシート名を日付に変更

Option Explicit

Sub RenameSheetToDate()
    ' アクティブなシートの名前を現在の日付に変更
    ActiveSheet.Name = Format(Date, "yyyy-mm-dd")
End Sub

複数のシート名を順番に変更

Option Explicit

Sub RenameAllSheets()
    Dim ws As Worksheet
    Dim i As Integer
    i = 1
    
    ' 全シートを順に名前を「シート1」、「シート2」...に変更
    For Each ws In ThisWorkbook.Worksheets
        ws.Name = "シート" & i
        i = i + 1
    Next ws
End Sub

ExcelVBAを使ったシート名の変更は、シート管理の自動化やプロジェクトに応じた動的な処理に役立ちます。手動で名前を付ける手間を省き、エラーを防ぐためにも、シート名の変更をVBAで適切に処理することが重要です。