本のシートを並べ替える

説明

ブック内のタブの数が数十に近づくと、遅かれ早かれ、ブック内のシートをアルファベット順に並べて並べ替える必要が生じるでしょう。標準の Excel ツールではこれを行うことができないため、これを行う簡単なマクロを作成してみましょう。

マクロの VBA コード

メニュー Service - Macro - Editor Visual Basic (Tools - Macro - Visual Basic Editor) を開き、VBA モジュール を挿入します (menu Inser t - Module ) をコピーしてそこに移動しますこのテキスト:

Sub SortSheets()
  'moonexcel.com.ua
  Dim I As Integer, J As Integer

    For I = 1 To Sheets.Count - 1
        For J = I + 1 To Sheets.Count
            If UCase(Sheets(I).Name) > UCase(Sheets(J).Name) Then
                Sheets(J).Move Before:=Sheets(I)
            End If
        Next J
    Next I
    
    MsgBox "タブは A から Z までソートされました"
End Sub

このマクロは、メニューの [サービス] - [マクロ] - [マクロ (Tools - Macro - Macros)] から実行できるようになり、現在のワークブック内のすべてのワークシートをすばやく並べ替えます。

トピックに関する記事: