Excelでセル値でシートを並べ替える方法は？

Excelファイルを使用する場合、ワークシートは常にアルファベット、数字、またはタブの色で並べ替えられますが、シートのタブを特定のセル値で並べ替えようとしたことはありますか？

数十のワークシートを含むワークブックがあるとすると、各ワークシートのセルA1には特定の値があり、各ワークシートのセルA1の値に基づいて、このワークブック内のすべてのワークシートを昇順で並べ替える必要があります。 この記事で、あなたは解決策を得るでしょう。

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

---

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

Excelのセル値に基づいてすべてのワークシートを並べ替えるには、直接的な方法はありませんが、次のVBAコードを使用するとよいでしょう。

1。 を押し続けます Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

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のXNUMXつに空白がある場合、相対ワークシートはすべてのシートの前にソートされます。

---

関連記事：

Excelでワークシートを英数字/英数字の順序で並べ替える方法?

Excelでワークシートのタブを色で並べ替える方法は？

ワークシートタブの順序を逆にする方法は？