excelのシートを昇順で並べ替えるマクロを作成。意図通りに並び替えられない

excelのシートがバラバラに並んでいる状態のものをマクロで昇順に並び替えたい
シート名：「資料１」～「資料200」のように漢字＋数字の組み合わせ

使用したコード

VBA
1
2Sub SortSheetsTabName()
3    Application.ScreenUpdating = False
4    Dim iSheets%, i%, j%
5    iSheets = Sheets.Count
6    For i = 1 To iSheets - 1
7        For j = i + 1 To iSheets
8            If Sheets(j).Name < Sheets(i).Name Then
9                Sheets(j).Move before:=Sheets(i)
10            End If
11        Next j
12    Next i
13    Application.ScreenUpdating = True
14End Sub
15

Microsoft Learnより引用

＜結果＞
資料１、資料１０～資料１９、資料１００～　・・・　資料１９９
資料２、資料２０～資料２９，資料２００～
上記のような順で並んでしまい、資料１、２、３・・・
というような普通の順番で並びませんでした。

シート名が漢字＋数字だと、意図したソートはできないのでしょうか？

meg_

2022/12/02 14:37

数字部分の桁数を揃えたシート名にするか、数値部分のみで比較してはどうでしょうか？

choco_mint

2022/12/03 03:35 編集

桁数を資料００１、資料００２とかにするということですね。そのやり方で意図した並び順になりました。ありがとうございます。また、数値のみの比較検討の提案もありがとうございます。

行動規範の内容に同意します

回答1件

ベストアンサー

テキスト比較で大小判定しているからですね。テキストだと先頭から1文字ずつ比較していきますので、"10"と"2"なら、まず"1"と"2"を比較して"２"の方が大きいので"10"<"2"となります。

名前の３文字目以降を切り取って数値化して比較すればいいでしょう。

vba
1Sub SortSheetsTabName()
2    Application.ScreenUpdating = False
3    Dim iSheets%, i%, j%
4    iSheets = Sheets.Count
5    For i = 1 To iSheets - 1
6        For j = i + 1 To iSheets
7            If Val(Mid(Sheets(j).Name, 3)) < Val(Mid(Sheets(i).Name, 3)) Then
8                Sheets(j).Move before:=Sheets(i)
9            End If
10        Next j
11    Next i
12    Application.ScreenUpdating = True
13End Sub