エクセル 漢字のシート名をあいうえお順に並び替え
エクセル2003を使っています。
シートが80ほどあり、シート名は漢字で氏名になっています。
その80あるシートをあいうえお順に並べたいと思っています。
別のサイトで下記を見つけたので、使いました。
並びかわりましたが、漢字を使っているせいか、あいうえお順に
並び変わりませんでした。
試しに、2~3のシート名をカタカナに変えたら正しく並び変わりました。
やはり、漢字だとうまく並びかわらないのでしょうか。
また、何か別の方法はありますか?
教えて下さい。
Sub SortSheets()
Dim intLoopA As Integer
Dim intLoopB As Integer
For intLoopA = 1 To Sheets.Count
For intLoopB = 1 To Sheets.Count - 1
If Sheets(intLoopB).Name > Sheets(intLoopB + 1).Name Then
Sheets(intLoopB).Move after:=Sheets(intLoopB + 1)
End If
Next intLoopB
Next intLoopA
End Sub
お礼
分かりました。早速やってみます。 素早いご回答に、感謝します。 ありがとうございました。