Excel2013 シートの並べ替え

質問

エクセル2013で年表を作りました。
シートに「801～900年）、「901～1000年」というように、千年ごとに名前を付けました。
現在は、アトランダムになってしまっているのですが、そのシートを年代順に並べ替えたいです。
方法を教えて下さい。

回答No.2

eden3616

Ａｌｔ+Ｆ11でＶＢＥを開き
挿入→標準モジュールで以下のＶＢＡコードを貼付
Ａｌｔ+Ｆ11または右上の×でＶＢＥを閉じる
Ａｌｔ+Ｆ8または表示→マクロで「シートのソート」を選び実行

■ＶＢＡコード

Sub シートのソート()
Dim mySt As Worksheet
Dim i As Integer

Set mySt = Sheets.Add(after:=Sheets(Sheets.Count))
With mySt
　　.Columns("A").NumberFormatLocal = "@"
　　For i = 1 To Sheets.Count - 1
　　　　.Cells(i, 1) = Sheets(i).Name
　　　　If InStr(1, Sheets(i).Name, "～") > 0 Then
　　　　　　.Cells(i, 2) = Left(Sheets(i).Name, InStr(1, Sheets(i).Name, "～") - 1)
　　　　End If
　　Next i
　　.Sort.SortFields.Clear

　　'昇順に並べる場合はOrder:=1、降順に並べる場合はOrder:=2
　　.Sort.SortFields.Add _
　　　　Key:=Columns("B"), _
　　　　SortOn:=xlSortOnValues, _
　　　　Order:=1, _
　　　　DataOption:=xlSortNormal

　　With .Sort
　　　　.SetRange Range("A:B")
　　　　.Header = xlNo
　　　　.MatchCase = False
　　　　.Orientation = xlTopToBottom
　　　　.SortMethod = xlPinYin
　　　　.Apply
　　End With
　　For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
　　　　Sheets(.Cells(i, 1).Value).Move after:=Sheets(Sheets.Count)
　　Next i
　　Application.DisplayAlerts = False
　　.Delete
　　Application.DisplayAlerts = True
End With
End Sub

回答No.1

shintaro-2

フリーのアドインソフトを使うか、
VBAで処理
http://www.moug.net/tech/exvba/0040060.html

たかだか２０シートぐらいなら、手で並び替えても大した手間ではありません。
http://excel.noaruseikatu.jp/medium/m04.php

お礼

早々に回答をありがとうございました。
手で並び替えても大したことことありませんでしたね。
でも、いろいろな方法を紹介していただき、勉強になりました。