Excel VBAマクロでシートを指定順に並べ替える方法

このマクロが実現すること
マクロの特徴
マクロのコード
マクロ実行の手順
実行後の確認点
使用時の注意点

このマクロが実現すること

Excelのブックには複数のシートが含まれることが多く、これらのシートを特定の順番に並べ替えたい場面がよくあります。この記事で紹介するマクロを使用すると、ユーザーが指定した順番にシートを簡単に並べ替えることができます。

マクロの特徴

ユーザーが指定したセル範囲に基づいてシートを並べ替えます。事前にどこかのセルへ、どのような順で並べ替えをしたいかを入力しておいてください。
ワークシートだけでなく、グラフシートも並べ替えの対象として扱います。
指定されていないシートは、指定したシートの後にそのままの順番で表示されます。
マクロの実行前後でアクティブシートやセルの位置は変わりません。

マクロのコード

以下のコードをVBAエディター(Altキー+F11キーで起動)の標準モジュールへ貼り付けてください(挿入→標準モジュール)。

すると「SortSheetsByOrder」というマクロが作成されます。

Sub SortSheetsByOrder()

    Dim rng As Range
    Dim cell As Range
    Dim sheetNames As Collection
    Dim ws As Worksheet
    Dim i As Long
    Dim origSheet As Worksheet
    Dim origCell As Range

    ' 現在のアクティブシートとアクティブセルを記憶
    Set origSheet = ActiveSheet
    Set origCell = ActiveCell

    ' インプットボックスでユーザーに範囲を指定させる
    On Error Resume Next
    Set rng = Application.InputBox("並べ替えたいシート名のリストを選択してください", Type:=8)
    On Error GoTo 0

    ' キャンセルされた場合は終了
    If rng Is Nothing Then Exit Sub

    ' 並べ替えたいシート名をコレクションに追加
    Set sheetNames = New Collection
    For Each cell In rng
        If SheetExists(cell.Value) Then
            sheetNames.Add cell.Value
        End If
    Next cell

    ' シートを並べ替え
    For i = sheetNames.Count To 1 Step -1
        Sheets(sheetNames(i)).Move Before:=Sheets(1)
    Next i

    ' オリジナルのセル位置に戻す
    origSheet.Activate
    origCell.Activate

End Sub

Function SheetExists(sheetName As String) As Boolean
    Dim ws As Object
    On Error Resume Next
    Set ws = ThisWorkbook.Sheets(sheetName)
    On Error GoTo 0
    If Not ws Is Nothing Then SheetExists = True
End Function

マクロ実行の手順

マクロをVBAエディタに取り込みます(標準モジュールへ挿入)。
Excel上でマクロを実行するセルを選択します。SortSheetsByOrderマクロを実行します(Altキー+F8キーでマクロリストが表示されるので選んで実行)。
マクロを実行すると、並べ替えの順序を指定するためのインプットボックスが表示されます。ドラッグで指定してください。
並べ替えが完了します。