エクセルでシート名でソート

質問

エクセルのシートをシート名でソートしたいのですが、VBAで以下の様な条件で出来るのでしょうか。

・シートは必ず５枚以上で、最大７０枚です。
・シート名は、半角英数字、漢字を使用しています。
・ソートの順は、１文字の「0～9」→「A～Z」→「0_0～9_Z」→「A_1～Z_Z」の順になります。
・シートの一番左端と右端３シートは並び替えしない（漢字名シート）。

例（ソートするシート）
0→4→5→F→0_1→0_9→4_1→5_4→5_5→F_5

「シートの並び替え」で検索してみましたら以下のサンプルが
有りましたので少し変更してみました。

*********************
Sub MoveSamp1()
Dim i As Long
Dim j As Long

For i = 2 To Sheets.Count - 3 '---最初から最後の3つ前のシートまで
For j = i + 1 To Sheets.Count '---i番め以降のシート全て
If Sheets(i).Name > Sheets(j).Name Then '---シート名の比較
Sheets(j).Move Before:=Sheets(i) '---(1)シートの移動
End If
Next j
Next i

End Sub
**********************************************************

結果
0→0_1→0_9→4→4_1→5→5_4→5_5→F→F_5

上手くいきませんでした。

他の方法として
　　ブック追加、シート名をセルに書き出し、セルとシート名比較、シート移動、ブック削除
なども試してみましたがダメでした。
シート名が数字ならば行くようですが。　

エクセルは２００３～２０１０で考えています。

すみませんが良いお知恵をお貸しくださいませんか。

回答No.1

keithin · ベストアンサー

ご自分でソート（のプログラム）を実装するより、エクセルにやらせた方がはるかに簡単です。
こんなカンジですかね。

sub macro1()
　dim i as long, n as long

’調査
　worksheets.add before:=worksheets(1)
　for i = 3 to worksheets.count - 3
　worksheets(1).cells(i-2, "A") = worksheets(i).name
　next i
　n = worksheets(1).range("A65536").end(xlup).row
　worksheets(1).range("B1:B" & n).formula = "=LEN(A1)"

’並べ替え
　range("A:B").sort key1:=range("B1"), order1:=xlascending, key2:=range("A1"), order2:=xlascending, header:=xlno
　for i = 1 to n
　worksheets(worksheets(1).cells(i, "A").text).move after:=worksheets(i + 1)
　next i

’片づけ
　application.displayalerts = false
　worksheets(1).delete
　application.displayalerts = true
end sub

お礼

keithinさん、ご回答有り難う御座いました。

動作、確認できました。

「シート追加、シート名転記、関数LEN()を使用してセルに転記、
並び替え、追加シート削除」の流れで宜しいですか。

大変助かりました。本当に有り難う御座いました。