Excelでセルの値に基づいてシートを並べ替えるにはどうすればよいですか？

Excelファイルを使用する際、私たちは常にワークシートをアルファベット順、数字順、またはタブの色で並べ替えますが、特定のセルの値に基づいてシートタブを並べ替えたことはありますか？

数十のワークシートを持つワークブックがあり、各ワークシートのセルA1に特定の値があると仮定します。ここで、このワークブック内のすべてのワークシートを、各ワークシートのセルA1の値に基づいて昇順に並べ替える必要があります。この記事では、その解決策をご紹介します。

VBAコードを使用して、セルの値に基づいてすべてのワークシートを並べ替える

VBAコードを使用して、セルの値に基づいてすべてのワークシートを並べ替える

Excelでセルの値に基づいてすべてのワークシートを並べ替える直接的な方法はありませんが、次のVBAコードが役立つかもしれません。

1. ALT + F11キーを押したままにすると、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2. 「挿入」>「モジュール」をクリックし、モジュールウィンドウに次のコードを貼り付けます。

VBAコード: セルの値に基づいてすべてのシートを並べ替える

Sub SortWksByCell()
'Update 20141127
Dim WorkRng As Range
Dim WorkAddress As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range (Single)", xTitleId, WorkRng.Address, Type:=8)
WorkAddress = WorkRng.Address
Application.ScreenUpdating = False
For i = 1 To Application.Worksheets.Count
    For j = i To Application.Worksheets.Count
        If VBA.UCase(Application.Worksheets(j).Range(WorkAddress)) < VBA.UCase(Application.Worksheets(i).Range(WorkAddress)) Then
            Application.Worksheets(j).Move Before:=Application.Worksheets(i)
        End If
    Next
Next
Application.ScreenUpdating = True
End Sub

3. コードを貼り付けた後、F5キーを押してこのコードを実行すると、どのセルに基づいてシートを並べ替えるかを選択するよう促すボックスが表示されます。スクリーンショットをご覧ください：

4. これで、すべてのワークシートが各ワークシートのセルA1のテキスト値に基づいて昇順に並べ替えられたことが確認できます。

注意：

1. 選択したセルに数値と文字列の両方が含まれている場合、数値を含むシートは文字列を含むシートよりも前に並べ替えられます。

2. セルA1のいずれかに空白がある場合、その関連するワークシートはすべてのシートの先頭に並べ替えられます。

関連記事：

Excelでワークシートをアルファベット順/英数字順に並べ替えるにはどうすればよいですか？

Excelでワークシートタブを色で並べ替えるにはどうすればよいですか？

ワークシートタブの順序を逆にするにはどうすればよいですか？