参考元:【VBA】シートを並び替える【バブルソートを使ってMoveで移動する】
https://daitaideit.com/vba-sheet-sort/
手順としては、次のようになります。
基準のシートを「1~4番目」でループ
比較シートを「基準+1番目~最終シート」でループ
右側のシートが小さい場合は、基準シートの左に移動
Sub TEST1()
'基準をループ
For i = 1 To 4
'比較先をループ
For j = i + 1 To 5
'右側が小さい場合は、基準の左に移動
If Sheets(i).Name > Sheets(j).Name Then
Sheets(j).Move before:=Sheets(i) '基準の左に移動
End If
Next
Next
End Sub
标签:VBA,End,移動,Move,Sheets,基準
From: https://www.cnblogs.com/langQ/p/18445950